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Editorial 



Every now and then, we try to let our 
readers know which software we, the staff 
of ANALOG Computing, feel to be the 
best and most frequently used for the 
Atari computers. 

Recently, we asked the people on our 
staff who regularly use the computer to 
make up a listing of their all-time favor- 
ite products. We asked them to list as 
many titles as they wanted in the follow- 
ing categories: games, languages, utilities, 
telecommunications, graphics, word pro- 
cessors, applications, and a special cate- 
gory, for items such as hardware and 
peripherals. You'll notice that much of the 
same software appears on our lists every 
time we do this type of feature. You'll see 
a couple of new games, perhaps — but, af- 
ter years of using a particular word pro- 
cessing or telecommunications program, 
most of us are hard pressed to change over 
to something new. . .Unless, of course, it's 
so much better that we're willing to sit 
down and learn how to use it. 

After you've taken a look at our favor- 
ites, why don't you sit down and make up 
a list of your own? When you've complet- 
ed the selection, drop your list in the mail 
to us — and let us know if you agreed with 
the choices that our staff made. Maybe we 
can tally the results and share them with 
you in a future issue. 

Under new business . . . this year's Sum- 
mer CES had Atari Corp. concentrating on 
the new XE game system. Actually, it's a 
6SXE in video-game clothing. The system 
has a detachable keyboard, and "Missile 




Atari's XE 

video game 

system. 



Command" is built into the system itself 
(if you take a gander at my favorite games 
in our list of Four-Star Software Picks, you 
can see why Tin excited about this inclu- 
sion). 

The system will also include the games 
Bug Hunt, for use with the light gun, and 
the 128K Flight Simulator II cartridge. All 
of the Atari classics, as well as some new 
releases, will be coming out in the new 
bank-switch cartridges. 

Don't think that they forgot, about us 
8-bit owners. Atari surprised us with the 
XF551 double-density disk drive. It's a su- 
per sleek 5V4-inch drive, which will be 
priced at around the same level as the cur- 
rent 1050 drive. Expect to see this, along 
with the 80-golumn XEP80 display box 



and the 1200-baud SX212 modem, some- 
time in late July or early August. 

If you're one of the many people wait- 
ing for the Mega STs, then you'll be liap- 
py to heai' that, according to Sam Tramiel. 
"they're on their way from Taiwan now." 
So perhaps we'll be able to get our hands 
on them within the next few months. 
Hmmm, Mega-Log. . . 



Michael J. DesChenes 

Publisher 

ANALOG Computing 
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Reader coininent 



An up-to-date update on Easy-Draw. 

I wish to correct some misinformation, 
concerning Easy-Draw upgrades, that was 
printed in issue 54 of ANALOG Comput- 
ing. It had been written some time ago, 
and the information was no longer accu- 
rate. 

The most cirrrent version of Easy-Draw 
is 2.0. Registered owners have all been 
notified via our newsletter that, to up- 
grade to the current version, it is $26.00 
plus $3 shipping. All other Easy-Draw 
owners may upgrade by sending in their 
registration cards, both of their original 
disks and $29.00. We will upgrade their 
disks and return them with a new copy 
of the documentation. 

A note to all Easy-Draw owners who 
have a version lower than 2.0: there are 
now companion products for use with 
Easy-Draw — such as fonts, personal and 
technical clip-art, and new printer drivers 
— but you need version 2.0 to be able to 
use them. Version 2.0 also has a great 
many additional features. Should you 
have any questions, please call us at: (206) 
838-4677. 

Thanks for allowing me to correct this 
information so quickly. 

Sincerely, 

Liz Mitchell 

V.P. Operations, Migraph Inc. 

720 South 333rd Street 

Suite 201 

Federal Way, WA 98003 



Checks and copies. 

Your April issue was really outstanding. 
The HardCopy and CheckWriter modifi- 
cations to Clayton Walnum's MicroCheck 
program were very beneficial enhance- 
ments, which I hope to utilize to the ful- 
lest as soon as I receive computer checks 
from my bank. 

The Multicopy utility by Charles John- 
son is a program which I am sure will be- 
come a standard reference among Atari 
users, once it becomes well known that 
such a useful utility exists. 

These types of programs certainly make 
ANALOG Computing the finest Atari pub- 
lication in the business. Keep up the good 
work — each issue is better than the previ- 
ous ones. 

Charles A. Cole 

Sierra Vista, AZ 

One item that you may have already no- 
ticed not included with issue 53's Check- 
Writer, that you normally see on a check, 
is a memo. This I purposely left out in the 
program, but didn't mention it in the brief 
article. 

In my version of the program, I insert- 
ed a GOSUB 2000 between Lines 230 and 
240. The purpose of this added routine 
was to check the name field of the record 
for companies (banks, charge accounts, 
etc.), and set the memo to the account 
number. I did this since most companies 
ask for the account number on the check. 
Here is an example of the possible code: 



2000 MEMO$="" 

2010 IF FILES CX+13,X+17J=" 

SEftR5" THEM MEM0S="99 9999 

9 99999 9":RETURN 

2020 IF FILEStX+13,K+21J=" 

J C PENNY" THEM MEM0$="999 

999 999 9":RETURM 
2030 REN ADD OTHER NUMBERS 
3000 RETURN 

Be sure to add a MEMO$(30) to the 
DIM statement at the beginning of the 
program. 

Also, change Line 475 to the following: 

475 ? tt3:? «3:? «3;" 
"; PAYEES :? «3:? tt3:? tt3;" 
■'; MEMOS 

On my newest checks, I found I had to 
add one more space in Lines 450, 455 and 
475, to center properly. Depending on your 
batch, you may have to change the same 
lines. Here is my latest change: 

450 ? tt3:? »3:? tt3,,,," 

";MONTHS;" ";FILESCK+8,K+9 

J;", 19";FILE$tX+ll,X+12) 

455 ? tt3!? tt3:? «3:? tt3;" 
";M5GS; 

475 ? «3!? «3:? tt3;" 
"; PAYEES:? tt3:? »3:? tt3 

I wrote this program in August of last 
year, and have continuously added to the 
personal routine, but have been using the 
main program without problem since. 

Thank you, 

Jeff Killeen 

Author of CheckWriter 

1/ you've been having trouble getting is- 
sue 53's Multicopy to run properly on your 
XE or XL computer, the following patch 
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A File Edit filter liTTJ 



make 

vour 

Own 

Magic. 



Connand 



iOk. print pi/4 

,785398 
|0k, info 

File size 31 lines 

flt line 2Z 

Free nenor| L | 651552 b 



C!\3dlib\z[ 



LIBRARY "3DLIB,TRC" 

CALL PersWindoM(-pi,pi,-pijpi,-l,5,l 

LET X = -3 

LET y = -5 

LET z = 4 

DQ 

PRINT "Euel ";x;y;z 

CALL SetCanera3(x,y,z,Mork$) 

CALL Zplot(0,3B,Hork$) 

DET KEY XXX 
I CLEAR 




Speed, great graphics and a little 
bit of magic: that's what you expect 
from your Atari ST. And that's 
what you get from programming 
in True BASIC. 

It's a structured language that's 
easy to use. A compiler, editor and 
debugging tools rolled into one. 
It's the latest from Kemeny and 
Kurtz, the inventors of BASIC. 

If you crunch numbers, you'll 
appreciate floating-point math 
that's very fast. Support for large, 
dynamic arrays, and built-in 
syntax for matrix algebra. 

And True BASIC makes graphics 
easy. Define your own coordinate 
schemes and color palettes. Plot 
entire arrays with a single state- 
ment. Apply built-in 2D trans- 
forms. Or use the 3D Graphics 
Library to put some depth in the 
picture. 

You can change line styles, add 
pull-down menus and get at all 
the GEM and AES roudnes. But 
if portable code is important, 
there's True BASIC for the PC, 
Macintosh^*^' and Amiga as well. 



True BASIC lets you build your 
own libraries. They can be 
separately compiled, in BASIC, 
C or assembly. Debug with break- 
points and immediate mode. 
Visually trace program execution. 
Create macros and script files 
to complement True BASIC'S 
fantastic mouse-based editor. 

But if you're just learning. True 
BASIC will coach you with on- 
line HELP and friendly error 
messages. If you need more, we 
have textbooks and videotapes. 

Find out why thousands of engi- 
neers, developers, and students 
use True BASIC to make a little 
magic. Visit your Atari ST dealer, 
or call us today at 1-800-TRBASIC. 

Now Shipping! 



Language System 

Runtime 

Both 

Libraries 



$ 79.95* 
79.95* 
149.95 
49.95 each 



■ Special introductory price 



Amiga is a registered trademark of Commodore-Amiga — 
Macintosh is licensed to Apple Computer — Atari is a 
registered trademari^ of Atari Corp. — True BASIC is a 
trademarl< of True BASIC, Inc. 



LANGUAGE 

• multi-line, user-defined functions 

• local, global variables 
•SELECT CASE, DO/LOOP 

• recursion, modules 

' GKS graptiics, 2D transforms 

• access to GEM, AES features 

COMPILER 

• compiles to fast, compact b-code 

• parameter type-checking 

• optional LET statement 

• optional declared variable names 

• Runtime package creates stand-alone file 

LIMITS 

• strings, program lines to 1 megabyte each 

• floating-point 5e-309 to 1 .8e+308 

• 14-digit floating-point accuracy 

• unlimited program size, data space 

• variable names up to 31 characters 

EDITOR 

• full-screen, mouse-based editor 

• global search, replace 

• block copy, move, delete 

• menu, function key, command line interfaces 

• keyboard macros, script files 

DEBUGGING 

• set breakpoints and continue 

• immediate mode execution 

• visual trace, single-step execution 

• cross-reference utility 

feSIG 



inc. 



39 South Main Street 
Hanover, NH 03755 
(603) 643-3882 
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n Reader comment continued 



is just what you need. Once you've typed 
the patch hi, place your disk containing 
Multicopy (it must be ncuiied MULTCOPY. 
OB]: rename it if necessary] in dn'\'e 1 
and run (he patch. A new \'ersion of Mul- 
ticopy IMULTC0P2.0B]) will be written 
to your disk. — Ed. 

10 OPEN tti,4*8i"l>!HULTC0PY 

.OBJ":OPEN tt2,8,0,"D:MULTC 

0P2.0BJ" 

20 FOR X=l TO 361: GET ttl,A 

:PUT tt2,A:NEXT X 

30 GET »1,A:PUT tt2,18:TRflP 

50 
40 GET ttl,A:PUT tt2,A:G0T0 
40 

56 CLOSE ttl: CLOSE U2S'> "ftL 
L DOME!" 

Elfin Plotter II. 

Thank you for your kind words regard- 
ing our product. Super 3D Plotter II, in 

issue 54. 

We wish to point out that the reviewer 
may have missed the SCALEing function 
in the on-screen graphic editor. When 
used with the POSITION function, joy- 



stick access to every X/Y/Z-coordinate 
within the ±32767 range is possible. 

More importantly however, the price of 
the product is now $29.95, not $39.95 as 
stated in the review heading. Also, the 
disk supplied now contains a support por- 
gram for the 1020 Plotter, that allows 
poster-sized reproductions of your work, 
by plotting the image in sections! 

Thanks again; we appreciate your rec- 
ognition and support. 

Randy Constan, 

Elfin Magic Co. 

23 Brook Place 

E. Islip, NY 11730 

CIS# 73637,317 

Lone wolf seeks pack. 

I have just purchased an Atari 800XL 
and 1050 drive with DOS 2.5, which I 
purchased through the mail. 

My problem: I'm unable to find Atari 
public domain programs — and very few 
other titles — as all the department stores 
(the nearest is twenty miles away) only 



carry Commodore software — and say they 
can't get software for Atari. 

I love my Atari system and wouldn't 
trade it for any other computer system in 
the world. 

I am interested in joining any users' 
group that will accept "mail-in members." 
The only users' group in my area is, again, 
for Commodore computer owners. 

I would greatly appreciate any help any 
of your other readers could give me. 

Kenny Lee 

412 East Keigan St. 

Dawson Springs, KY 42408 

Loud and clear. 

My letter may not be to your liking, but 
nowadays things have to be said. First, I 
do want you to know: I love my XL and 
will not part with it. 

In the last two years, several advances 
in the micro-revolution have occurred. 
Fierce competition exists everywhere. Just 
four months ago, Tandy released the Col- 
or Computer 3. For $219, you get 640x200 



liwl wOOwof your mouse 




Write a 
novel... 




Paint a 
master- 



piece 





Manage a 

mailing 

list.. 




Plana 
bucfget... 

Ask about any of the 
1 4 books in our ST 
Reference Series 



with 

software 

for the ST 

TextPro-This is a serious word processor! Written with speed and maximum control in- 
mind. Advanced features — mail merge for form letters..., multiple columns, automatic 
table of contents, automatic index , sorting (to alphabetize list of words) and define up to 
30 user definable keys. Full screen editing with mouse or keyboard. $49.95 

PalntPro-Draw upon your creative talents with PalntPro, the GEM-based, full-page 
graphics design package. Multiple windows. Cut & paste. 16 tools. Variable line width. 
Define your own fill and line patterns (up to 32 in memory at once). $49.95 

PaintPro Library #1-Many clip-art pictures, 5 GDOS fonts. Degas compatible. $29.95 

DataRetrleve— Data management was never this easy! Design your database using 
the mouse. Lightning-fast operation; tailorable display; user-definable reports; up to 
64,000 records. Supports multiple files. Includes RAM-disks. Complete search, sort and 
file subsetting. Works with TextPro. Easy printer control. Five setups included. $49.95 

PowerLedger— Finally, a full-powered spreadsheet for your ST. Powerful, large 
capacity (65,000 by 65,000 cells) spreadsheet. Built-in calculator, online notepad and 
integrated graphics. Seven different chart types (pie, bar, 3D bar, line, etc.) Multiple 
windows (up to seven). 14 digit precision with 37 math functions. New Version! $79.95 



Call now for the name ol the dealer nearest you. Or 
order direct using your aedit card. Add $4.00 per order 
for shipping. Foreign orders add $12.00 per item. Call 
or write for your free catalog covering our software 
and books. 30-day software guarantee. Dealers 
inquires welcome-over 2000 dealers nationwide. 



AbacusB 



P.O. Box 7219, Dept. N8, Grand Rapids, Ml, 49510 
Phone 61 6/24 1-5510 Fax 616/241-5021 Telex 709-101 
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maximum resolution in four colors plus 
background, 80-, 40- or 32-column text, 
and the easiest BASIC known to mankind. 
What is really important here is that the 
CoCoIII runs RGB analog, composite or 
TV. . .and uses OS9 Level II to unleash its 
astounding power. 

Everyone is asking for program devel- 
opment for Atari 8-bits. The problem I see 
is: the Atari 8-bit community seems made 
up of pirates to the first degree. I sincere- 
ly believe that has been the number 1 rea- 
son for the XL/XE decline in software 
development. I myself have access to 400 
double-sided disks of commercial soft- 
ware. Why buy it, if you can clone it? It 
is a major problem, and I believe your 
magazine should make a stand on this 
issue. 

My background in computers goes back 
to 1972. I love the things, but there are 
problems which have to be discussed. 

I sincerely believe the Atari 8-bit is still 
— today, in stock, right out of the box — 
the most powerful, full-featured 8-bit 
micro made. It may be years until anoth- 
er machine can whip it, in stock form. My 
CoCoIII can, but only for far more mon- 
ey, I base judgments on power, ease of use 
and features on my XL when comparing 
computers. 

I don't know how to stop the things 
which detract from the XL/XEs. You may 
publish this if you see fit. I would enjoy 
corresponding with other 8-bit owners, 
not to judge, etc., but may to seek an- 
swers. . .not more hassle. 

Sincerely, 

Jay Thomas 

113 15th St., W. 

Great Falls, MT 59401 

P.S. — ANALOG Computing is beyond 
comparison. You people should be very 
proud of your excellent publication! 

And here we thought we'd beaten our 
readers into the ground about not pirat- 
ing. Our stand is simple: Piracy is Theft; 
DON'T DO IT! —Ed. 

Piracy is a popular subject of discussion 
right now. A series of annoying accidents 
prompts me to write on the subject. 

I know a pirate. He passes out software 
to anyone he happens to trust. Back when 
Atari was in trouble and software houses 
were abandoning Atari users, this man got 
angry. Here was all the protected software 
and no customer support if a disk hap- 
pened to crash. He decided to learn how 
to unprotect all those programs. This man 
is now a programming genius. He can 
"break" any protection scheme there is. 



If there's anything I want, I can get it from 
him. He has contacts all over the coun- 
try. He also writes his own programs. You 
may even have some, if you're into tele- 
communications. 

You might find his justification for the 
piracy interesting. He makes illegal copies 
because of the copy protection. He feels 
that, if the software developers are going 
to sell you something, then you ought to 
be protected from losing that program if 
the company goes out of business. 

I have a lot of programs I got from him. 
Most are never used. If I do find a pro- 
gram I like and use, then I go out and buy 
a copy (I usually copy a "broke" version 
onto the original disk). 

Unfortunately, I didn't get around to 
copying an unprotected copy of The Print 
Shop onto the original, purchased disk. 
Which brings me to the reason I decided 
to write this letter. As I was using The 
Print Shop the other day, my copy crash- 
ed . That left me only the protected origi- 
nal. At first all went well, but when I used 
it a second time, side two crashed. Here 
I sit with no working copy. Now, I paid 
good money for that program! Anyone 
else would have had to sent their disk to 
Broderbund to get a new program. I'm not 
inconvenienced that badly; I can have a 
new copy in four days when I next visit 
my pirate friend. 

The point I'm making is that copy pro- 
tection is a rotten trick for software houses 
to play on their customers. I make an ef- 
fort to be honest and buy the programs I 
use, and yet I'm constantly inconvenienc- 
ed by copy protection schemes. Since 
copy protection doesn't stop pirates, why 
don't software houses just stop it? Low 
prices and good documentation are bet- 
ter deterrents to piracy. 

I have a suggestion. Many pirates copy 
software just to prove they can do it, leav- 
ing unprotected stuff alone. Let's all do 
that: never make an illegal copy of any- 
thing that isn't protected. That will en- 
courage the software houses to leave out 
the protection schemes. 

Piracy will never be completely elimi- 
nated, but if unprotected software isn't co- 
pied and the protected stuff is, then there 
soon will be no protected software. And 
wouldn't that be great? 

Sincerely, 

Richard Bush 

Overton, NV 

Funny. . .everyone who writes to us 
about piracy says they also have a pur- 
chased copy of anything they've gotten 
illegally. Well, it's still wrong — and ille- 



gal — to own pirated software. When your 
favorite pair of shoes wears out, do you 
curse the manufacturer? Do you refuse to 
venture outside in search o/new/ootweor? 
Now, sometimes, a disk fails because of 
a defect, when it's stiJi pretty new. Most 
distributors or manu/acfurers will recti- 
fy the problem if you send the disk back 
to them. We can't blame them for want- 
ing to protect their property; that's only 
rational. It's not rational to think crimi- 
nals won't steal unprotected software. 
This is not Utopia. — Ed. 

Greetings from Paris. 

When someone contacts me in order to 
get information about a good magazine 
for the best computer in the world, I al- 
ways answer the same thing, as if I were 
a tape recorder: "Buy an ANALOG Com- 
puting issue and see for yourself!" I just 
give the advice, and you do the work. So 
go on: do your job as well as today! 

But now onto my real reason for writ- 
ing . . . I'm French and am having great 
trouble in finding American penpals, be- 
cause my modem doesn't work anymore. 
Therefore, I decided to write. I know I can 
rely on your help, so if you could release 
this letter, I'd appreciate it. 

As I already wrote, I'm French, 18 years 
old. I have an 800 XL, two 1050 disk 
drives, and many other bits and pieces. 
I'm looking for American penpals, with 
whom I'd like to swap ideas, software, 
books, and so on. 

Thanks for everything. 

Monsieur Bechbache Salah 

169 Blvd. Servrier 75019 

Paris, France 

Enhanced enhancements. 

The following lines should be added to 
Listing 1 of issue 55 's Dragonlord Dun- 
geon Editor. 

3048 REM 

3348 POKE 752,Nl:P0KE 88, M 

0:PDKE 89, MAP: POSITION N18 

,N9:? RM$CRM(RD0M1»N17-N16 

,RMCR00M)*N17> 

Author Clayton Walnum apologizes pro- 
fusely. . . he hates when this happens. 

-Ed. 
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M/L Editor 



For use in machine language entry 



by Clayton Walnum 



M/L Editor provides an easy method to en- 
ter our machine language listings. It won't al- 
low you to skip lines or enter bad data. For 
convenience, you may enter listings in mul- 
tiple sittings. When you're through typing a 
listing with M/L Editor, you'll have a com- 
plete, runnable object file on your disk. 

There is one hitch: it's for disk users only. 
My apologies to those with cassette systems. 

Listing 1 is M/L Editor's BASIC listing. 
Type it in and, when it's free of typos, save 
a copy to disk, then run it. 

On a first run, you'll be asked if you're 
starting a new listing or continuing from a 
previously saved point. Press S to start, or 
C to continue. 

You'll then be asked for a fUename. If you're 
starting a new listing, type in the filename 
you want to save the program under, then 
press RETURN. If there's already a file by that 
name on the disk, you'll be asked if you wish 
to delete it. Press Y to delete the file, or N 
to enter a new filename. 

If you're continuing a fUe, type in the name 
you gave the file when you started it. If the 
program can't find the file, you'll get an er- 
ror message and be prompted for another fOe- 
name. Otherwise, M/L Editor will calculate 
where you left off, then go on to the data en- 
try screen. 

Each machine language program in ANA- 
LOG Computing is represented by a list of 
BASIC data statements. Every line contains 
16 bytes, plus a checksmn. Only the numbers 
following the word DATA need be con- 
sidered. 

M/L Editor will display, at the top of the 
screen, the number of the line you're current- 
ly working on. As you go through the line, 
you'll be prompted for each entry. Simply 
type the number and press RETURN. If you 
press RETURN without a number, the default 
is the last value entered. 

This feature provides a quick way to type 
in lines with repetitions of the same number. 
As an added convenience, the editor will not 
respond to the letter keys (except Q, for 
"quit"). You must either enter a number or 
press RETURN. 



When you finish a line, M/L Editor will 
compare the entries' checksum with the 
magazine's checksum. If they match, the 
screen will clear, and you may go on to the 
next line. 

If the checksums don't match, you'll hear 
a buzzing sound. The screen will turn red, 
and the cursor will be placed back at the first 
byte of data. Compare the magazine listing 
byte by byte with your entries. If a number's 
correct, press RETURN. 

If you find an error, make the correction. 
When all data's valid, the screen will return 
to grey, and you'll be allowed to begin the 
next line. 

Make sure you leave your disk in the drive 
while typing. The data is saved continuously. 

You may stop at any time (except when you 
have a red screen) by entering the letter Q for 
byte #1. The file will be closed, and the pro- 
gram will return you to BASIC. When you've 
completed a file, exit M/L Editor in the same 
way. 

When you've finished typing a program, 
the file you've created will be ready to run. 
In most cases, it should be loaded from DOS 
via the L option. Some programs may have 
special loading instructions; be sure to check 
the program's article. 

If you want the program to run automati- 
cally when you boot the disk, simply name 
the file AUTORUN.SYS (make sure you have 
DOS on the disk). 

That's M/L Editor. Use it in good health. H 



ZG 48 POSITION 10,8!? "FILENattE"! HHPUT F 

i!POKE 752,1!? " " 
FE 58 IF LENCFi]<3 



The two-letter checksum code preced- 
ing the line numbers here is not a part 
of the BASIC program. For further in- 
formation, see the BASIC Editor II, in 
issue 47. 



Listing 1. 
BASIC listing. 



AZ 18 DIN BFC16),ll4f4),A«(lJ,BSCl>,F$(15I 

,F1$C15I 
LF 11 DIN liaDSC4l 
BN 20 LIIIE=10eO:RETRN=lSSl8ACK1IP=128lCHK5 

UW:0!EDIT=S 



THEN POIITION 28,101? 

" "IGOTO 48 
NF 68 IF FSa,2J<>"DI" THEN F1«="I)I"|F1»C 

3}=F$:GaT0 88 
KL 78 Fl$=Fi 

TN 88 IF CHRS(A)="S" THEN 128 
FD 38 TRAP 430:0PEN lt2,4,e,Fl$ :TRAP 110 
HQ 100 FOR X=l TO 16! GET lt2,A:MEXT XiLINE 

=LINE«10!60T0 100 
HH 118 CLOSE n2!0PEN ii2,9,8,Fl$ :GOTO 170 
VT 120 TRAP 168:0PEN 112,4,0, F1$:G0SUB 440 

: POSITION 18,18!? "FILE ALREADY EXISTS 

!!":POKE 752,8 
ZU 138 POSITION 10,121? "ERASE IT? "IIGOS 

UB 500: POKE 752,11? CHrJiA) 
VH 140 IF CHR$CAI="N" OR CHR$CA)="n" THEN 

CLOSE tt2!GOT0 30 
OG ISO IF CHR$CA)<>"V" AND CHRS(A}<>"U" T 

HEN 130 

BH 180 CLOSE ttZiOPEN lt2.8,0,Fl$ 

IE 170 GOSUB 450: POSITION 10,1:? " liliMMilM 

i031: "iLINE:CHKSUNrO 
GH 188 L1=3!F0R X=l TO 16:P0SITI0N 1INCX< 

10>412«IX>S),X42:POKE 752,0!? "BYTE H" 

!X; iiGDSUB 318 

KH 170 IF EDIT AND L=0 THEN BVTE=BFCX] !G0 

TO 218 
FY 288 BYTE=VALCN$] 
OZ 281 HODlrN? 

BU 210 POSITION 22,X^2:? BYTE;" " 
VZ 220 BF(X)::BVTE!CHKSUH=CHKSUHtBYTE»X:IF 

CHKSUM>SS79 THEN CHKSUN=CHKSUH-18088 
m 238 NEXT X!CHKSUH=CHKSUIHLINE!IF CHKSU 

n>^991 THEN CHKSUH=CHKSUH-18e00 
IG 240 POSITION 12,X^2!P0KE 752,01? "CHEC 

KSUH: ":!L1=4!G0SUB 310 
EH 250 IF EDIT AND L=e THEN 278 
OH 260 CrVALINSl 
SY 270 POSITION 22,Xt2!? C!" 
IL 280 IF CrCHKSUH THEN 304 
DI 2S0 GOSUB 440 :EDIT=l:CHKSUH-e! GOTO 180 
LH 300 FOR X=l TO 16: PUT ttZ, BF CXI ! NEXT X: 

LINE=LINE418:EDIT=0:G0T0 170 
FV 310 L=0 
LG 320 GOSUB 500: IF A=ASCC"0") AND K=l AN 

D NOT EDIT THEN 420 
PO 338 IFAORETRN AND AOBACKSP AND <A<4 

8 OR A>57) THEN 320 
DX 331 IF ArRETRH AND N$="" THEN N$=HOD$ 
TD 335 IF A=RETRH AND L=0 AND X>1 THEN 35 


JR 340 IF tCA=RETRN AND NOT EDIT) OR A=B 

ACKSP) AND L=8 THEN 328 
DH 350 IF A=RETRN THEN POKE 752,1!? " "!R 

ETURN 
GG 360 IF AOBACKSP THEN 408 
SA 370 IF L>1 THEN N$=N$C1,L-1) !G0T0 398 
AS 388 NSr"" 

RE 3)8 ? CHR$CBACKSP);:L=L-l:G8T0 320 
BB 488 L=Ltl!lF L>L1 THEN A=RETRN:G0T0 35 

8 
HX 410 NSCL]=CHR$CA)!? CHR$f AI ; :G0T0 328 
KN 420 GRAPHICS OIEND 
YT 430 GOSUB 440: POSITION 18,18:? "NO SUC 

H FILE!":FOR X=l TO ieoe!NEXT X:CLOSE 

n2:G0T0 30 
FD 448 POKE 7ia,4S:S0UND 0,108, 12, OiFOR X 

=1 TO 50:NEXT X:SOUND 0,0,e,0:RETURN 
HY 450 GRAPHICS 23! POKE 16,liZ:P0KE 53774 

,112:P0KE 557,0:P0KE 710,4 
XR 460 DL=PEEKC568)t256»PEEK(561)44iP0KE 

DL-1,70:P0KE DL«2,e 
HH 470 FOR X=3 TO 3S STEP 2:P0KE DLtX,2!N 

EXT X: FOR X=4 TO 40 STEP 2: POKE DL+X,8 

ZH 480 POKE DL+41,S5:PaKE DLt42,PEEKI5eO) 
:POXE DL443, PEEK C561): POKE 87,8 

AC 4Se POSITION 2,0:? "analog ni vditor"; 

POKE 55), 34: RETURN 
HZ 588 OPEN ttl,4,8,"KI"!GET ttl,AlCLOSE 111 
:RETURN 



CO 31 GOSUB 458:P0SITI0N IS. St? "Start Or 

e? "::gosub sooit chr$Iai 



ontinue? 



PAGE 10 / JULY/AUGUST 1987 



ANALOG COMPUTING 



Software Discounters 
OF America ._u „ 



For Orders Only- 1-800-225-7638 
PA Orders- 1-800-223-7784 
Customer Service 412-361-5291 



\ S.D. of A. 

Free shipping on orders 

over $100 in continental USA 

No Surcharge for VISA/MasterCard 

Your card is not charged until we ship 



ABACUS BOOKS 

ST Gem Prog. Rcl S1S 

ST Craphki & Sound $15 

ST Internals $15 

ST Midi Programming ... .$15 

ST Peeks & Pokes $13 

ST 3-D Graphics $19 

ST Tricks & Tips $15 

ABACUS SOFTWARE 

Assem/Pro ST $39 

DataTrieveST $33 

Forth/MTST $33 

Text Pro ST $33 

ACADEMY 

Typing Tutor ST $23 

ACCESS 

Leader Board Goll(D) $25 

Leader Board Golf ST $25 

L.B. Tourn. Disk '1 ST $14 

L.B. Tourn. Disk '1 (D) $14 

Tenth Frame ST $25 

Triple Pack: BH1, BH2, Raid 

Over MoKow (D) $14 

ACCOLADE 

Fight Night (D) $19 

Hardball (D) $19 

HardballST $25 

Mean 18 Golf ST $25 

Mean 18 Famous 

Course Disk ST $14 

A CTIVISION 

Hacker 2 ST $25 

Music Studio ST $33 

Music Studio (D) $23 

Paintworks ST $25 

Shanghai ST $25 

Tass Times in 

TonetownST $25 

AEGIS 

Animator ST $49 

AMERICAN EDUCATIONAL 
COMPUTER 

Biology (D) $14 

French (D) $14 

Grammar (D) $14 

Science: Grades 3/4(0) . . $14 
Science: Grades 5/6 (DJ . . $14 
Science: Grades 7/8 (D) . . $14 

Spanish (D) $14 

ARTWORX 

Bridge4.0(D) $16 

Bridge4.0ST $19 

Bridge 5.0 ST $23 

Hole in One Golf ST $14 

Mail List ST $14 

Miniature Coll ST $14 

Strip Poker (D) $21 

Strip Poker ST $25 

Female Data Disk 1 $14 

Male Data Disk 2 $14 

Female Data Disk 3 $14 

AVANTACE 

Spy vs. Spy 11. 2 (D) ....$9.88 

B ATTERIES INCLUDE D 

Degas Elite ST $49 

Isgur Portfolio System ST $129 
Paperclip w/Spell 130XE . $36 

Thunder ST $25 

BRODERBUND 

Champ. Loderunner (D) . . .$19 

Karateka(O) $19 

Loderunner (D) $23 

Print Shop (D) $26 

Print Shop Graphics 

Library '1,<2, '3(D) $16 Ea. 
P.S. Companion 64K (D) . . $23 



CENTRAL POINT 

Copy2ST $25 

CDA 

America Cooks Series: 

American ST ........ $9.88 

Chinese ST $9.88 

French ST $9.88 

Italian ST $9.88 

Mexican ST $9.88 

DATASOFT 
Alternate Reality: 

The City ST $23 

Mercenary ST $23 

DAVIDSON 

Math Blaster (D) $33 

Spell It (D) $33 

Word Attack (D) $33 

E LECTRONIC ART S 

Software Classic Series: 

Age of Adventure (D) . . .$9.88 

Archon[D) $9.88 

Archon 2: Adept (D) $9.88 



Dragonridet'S Pern (D) . . . $9.88 
Gateway to Apshai (D) . . $6.88 

Koronis Rift (D) $9.88 

Pilstop2(D) $9.88 

Rescue on Fractalus(D) $9.88 

Rogue ST $23 

Sub Battle Simulator ST . . $25 

Summer Games (D) $14 

Super Cycle ST $23 

Temple of Apshai (D) ... $9.88 
Temple Apshai Trilogy (D) $14 
Temple Apshai Trilogy ST .$14 

The Eidolon 64K (D) $9.88 

Winter Games ST $23 

World Champ. Karate ST . . $25 

World Games ST $25 

FIREBIRD 

Golden Path ST $29 

Guild of Thieves ST $29 

MRCAMach2(D) $16 

The Pawn (D) $25 

The Pawn ST $29 

StarCliderST $29 



RT8 $49 

RamboXL $29 

US Doubter: 

with Sparta DOS $49 

without Sparta DOS $29 

INFOCOM 

Bureaucracy ST $25 

Enchanter (D) $19 

Hitchhiker's Guide (D) $19 

Hollywood Hijinx (D) $23 

Leather Goddesses (D) $23 

Trinity ST $25 

Zorki (D) $23 

Zork Trilogy (D) $39 

" All titles in stock for 
520 ST -Call for prices 

MASTERTRONIC 

Action Biker (D) $6.88 

Elektraglide (D $6.88 

Magnum Joystick $12 

Ninja(D) $6.88 

Ninja ST $14 



General Manager (D) $19 

1986 Team Data Disk $14 

MICROPROSE 

F15 Strike Eagle (D) $23 

Silent Service (D) $23 

Silent Service ST $25 

Top Gunner (D) $16 

MILES COMPUTING 
Harrier Strike Mission ST $33 
MINDSCAP E 

Balance of Power ST $33 

Bop & Wrestle (D) $19 

BrattacusST $29 

High Roller ST $33 

Infiltrator (D) $19 

Trail Blazer (D) $19 

MINDSCAPE CINEMAWARE 
Defender of the 

Crown ST Call 

S.D.I. ST $33 

Sinbad: Throne of 

theFalconST Call 




Great Fantasy 
Role-Playing— 
You're a 
Techno- 
Scavenger 
Salvaging Hi- 
Tech Weapons 
from the 
Ancients! 



Great Fantasy 

Adventure— 

The Eidolon™ 

Transports You 

Into a Magical 

Realm 

64K Required 



£^. 



Epyx 



TlMi EIDOl)ON 




MONTHLY 
MADNESS 
SALE 

Your Choice 

988 
Each 

Special Bonus: 
Buy any 3, get the 
4th FREE 

Available for: Atari 
XL/XE (disl() 




Realistic, 

Three- 

Dlmen- 

slonal 

Depth 

Perception 



LUCASFILM GAMES 

Rescue on Fnictalus! 



Realistic, 
Three- 
Dimen- 
sional Land- 
scape 



Financial Cookbook (D) $9.88 
Mail Order Monsters (D) $9.88 

Movie Malier (D) $9.88 

M.U.L.E.(D) $9.88 

Music Const. Set (D) $9.88 

One-on-One (D) $9.88 

Pinball Const. Set (D) ... $9.88 

Racing Dest. Set (D) $9.88 

Seven Cities of Gold (D) . $9.88 
Super Boulder Dash (D) $9.88 
Touchdown Football (0).$9.88 
E LECTRONIC ART S 

ArcticfoxST $29 

Chessmaster lOOO (Dj $26 

Chessmaster 2000 ST $29 

Financial Cookbook ST . . $33 

Lords of Conquest (D) $23 

New Tech 

Coloring Book ST $14 

Skyfox ST $29 

Star Fleet 1(0) $33 

Star Fleet 1ST $33 

EPYX 

Ballbla2er(D) $9.88 

Champ. Wrestling ST $25 



FIRST BYTE 

First Shapes ST $33 

Kid Talk ST $33 

Math Talk ST $33 

Speller Bee ST $33 

'These programs talk! 
FTL 

Dungeonmaster ST $25 

R.P.V. ST $25 

SundogST $25 

CAMESTAR 

Champ. Baseball ST $25 

Champ. Basketball ST . . $25 

Champ. Football ST $25 

HITECH EXPRESSIONS 

Award Ware (D) $9.88 

CardWare(Dj $6.88 

Heart Ware (D) $6.88 

Parly Ware (D) $9.88 

ICD 

MIO(256K) $179 

MIO(1 meg.) $319 

XE Adapter for MIO $19 

PR Connection $65 

Printer Connection $44 



Renegade ST $14 

Speed King (D) $6.88 

The Last V8(D) $6.88 

Vegas Poker & lackpot (D) . $6.88 
MICHTRON 

BBS 2.0 ST $49 

Calendar ST $19 

Cornerman ST $33 

GFA Basic Int. ST $49 

CFA Basic Compiler ST . . $49 

Karate Kid2ST $25 

J Major Motion ST $25 

Match Point ST $25 

M-DiskPlusST $25 

Mighty Mail ST $33 

Personal Money Mgr. ST . .$33 

Pinball Factory ST $25 

R.A.I.D.ST $25 

Space Shuttle 2 ST $25 

Super Conductor ST $49 

Time Bandit ST $25 

Trim Base ST $59 

MICROLEAGU E 

Baseball (D) $25 

Baseball 2 ST $39 

Box Score Stats (0) $16 



The King of Chicago ST .. Call 
ORIGIN 

Autoduel(D) $33 

AutoduelST $33 

Ogre(D) $26 

Ogre ST $26 

Ultima 3 ST $39 

Ultima 3(D) $32 

Ultima 4(D) $39 

OSS 

Action (R) $47 

Action Tool Kit (D) $19 

Basic XE(R) $47 

Basic XL(R) $37 

Basic XL Tool Kit (D) $19 

Personal Pascal ST $49 

PCA 

Graphic Artist ST $129 

Font Editor ST $49 

PROGRESSIVE 

LogislixJr.ST $59 

Logistix1040ST $95 

SuperbaseST $95 

SHELBOURNE 

Pool ST $19 



Shuffleboard ST $19 | 

SIERRA 

Black Cauldron ST $25 | 

Donald Duck's 

Playground ST $16 | 

Kings Quest 

1,2, or 3 ST $33Ea. I 

Space Quest ST $33 I 

Winnie the Pooh ST $16 j 

SOFTIOCIC 

Publishing Partner ST . . . .$95 | 

SPECTRUM HOLOBYTE 

GatoST $23 

S PRINGBOARD 

Certificate Maker ST $33 

CM. Library »1 ST $23 

SSI 

Gettysburg (D) $37 

Phantasie(D) $25 

Phantasie ST $25 

Phantasie2ST $25 

Phantasie 3 ST Call 

Ringsof ZilfinST Call 

Roadwar 2000 ST $25 

War Game Const. Set (D) . . $19 

Wizard's Crown (D) $25 

Wizard's Crown ST Call 

SUBLOGIC 

Flight Simulator 2(D) $32 

Flight Simulator 2 ST $33 

F.S. Scenery Disks Call 

SYNAPSE 

Syn-Calc(D) $33 

Syn-File(D) $33 

TDI 

Modula2ST $49 

Modula 2 (Dev.) ST $95 

T IMEWORK S 

Data Manager ST $49 

SwiftcalcST $49 

Word Writer ST $49 

TRONIX 

S.A.M.(D) $19 

UNICORN 

Animal Kingdom ST $25 

Decimal Dungeon ST $25 

Fraction Action ST $25 

KinderamaST $25 

MathWiiardST $25 

Read & Rhyme ST $2S 

UNISON WORLD 

Art Gallery 1 or 2 ST ..$19ea. 

Print Master Plus ST $25 

VIP TECHNOLOGIES 

VIP Professional ST $149 

XIENT 

First XlentW.P.(D) $19 

Page Designer (D) $19 

PS. Interface (D) $19 

Rubber Stamp (D) $19 

Rubber Stamp ST $25 

Typesetter (D) $23 

Typesetter Elite ST $33 

Write 90* ST $19 

ACCESSORIES 

Anchor VM 520 300/1200 

Baud Modem ST $129 

Bonus 5 % SS, DD . . $5.99 Bx 
Bonus 5 '/< DS, DD . . . $6.99 Bx 
CompuServe Starter Kit . . .$23 

Disk Case (40-3 Vi) $9 

Disk Case (75-5 '/<) $9 

Disk Drive Cleaner-3'/^ ... .$9 

Epyx SOOX) Joystick $14 

WicoBoss $12 

Wico Bat Handle $17 



P.O. BOX 111327- DEPT. AN-BLAWNOX, PA 15238 



■Please Read The Following Ordering Terms & Conditions Carefully Before Placing Your Order: Orders with cashiers check or money order shipped immediately on in stock items. Personal & 
Company checks, allow 3 weeks clearance. NoC.O.D.s! Shipping: Continental U.S.A. -Orders under $100 add $3; free shipping on orders over $100. AK, HI, FPO, APO-add $5 on all orders. 
Canada & Puerto Rico— add $10 on all orders. Sorry, no other International orders accepted! PA residents add 6% sales tax on the total amount of order including shipping charges! REASONS 
FOR CALLING CUSTOMER SERVICE — 412-361-5291 (1) Status of order or back order (2) If any merchandise purchased within 60 days from S.D. of A. is defective, please call for a return 
authorization number. Defective merchandise will be replaced with the same merchandise only. Other returns subject to a 15% restocking charge. After 60 days please refer to the manufac- 
turers warranty included with the merchandise & return directly to the manufacturer. Customer service will not accept collect calls or calls on S.D. OF A.'s 800» order lines! Have you seen our on 
line catalog of 1000 software titles for Commodore, Atari, Apple, IBM and Amiga! It's on CompuServe's Electronic Mall — just type GO SDA and shopping for software will never be the same 
again! HOURS: Mon.-Fri. 9AM-5:30 PM, Sat. 10AM-4PM Eastern Time. Because this ad had to be written 2-3 mos. before it was published, prices & availability are subject to change! New titles are 
arriving daily! Please call for more information! 
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REGULAR FEATURE 




8-bit news! 



ATARI CALCS 

Former Atari V.P. David Harris has brought 
out a line of high-technology calculators bear- 
ing the Atari name and logo, from credit-card- 
sized units to printer calculators. Included are 
calculators with 4000-character memories. 



P" iE3%B%. 




The credit-card-sized units are hght powered, 
and have a sturdy '/g-inch thickness. With liq- 
uid crystal display, they come in six styles. 
Desktop and wallet-encased models are also 
available. By Hartech USA Ltd., Scottsdale, 
Arizona. circle #128 on reader service card 



CONTINUED MICROPROSE SUPPORT 

A name which continues to come up in the 
Atari 8-bit world is MicroProse. True, other 
companies' names may appear, but most are 
not as consistent in bringing out the quality 
products this company is noted for. At the re- 
cent Consumer Electronics Show, Bill Stealey 
and his team announced additional new titles 
planned for the Atari line. 

Pirates! is an adventure/simulation where 
you take on the role of a pirate captain sail- 
ing the Spanish Main, visiting ports and forg- 
ing conquests. Arcade-style play is teamed 
with the interactive story line of a text adven- 
ture featuring ship battles, land conquests, 
fencing, sailing, and over seventy different 
scenes and images, as well as the opportuni- 
ty to travel the Caribbean. 

One of the anticipated products for the 8-bit, 
Gunship, will be available with 3D graphics, 
giving you the chance to pilot an Apache At- 
tack Helicopter into some of the world's most 
troublesome areas. Hi-tech equipment — that 
includes lasers, radar warning systems, video 




cameras and night viewers — is at your dispo- 
sal, as are computers, jammers, missiles, rock- 
ets, flares and a 30mm cannon. 

Another new product (though not slated for 
the Atari in the near future) is Project Stealth 
Fighter. This flight simulation gives you an air- 
craft equipped with powerful radar and infra- 
red concealment devices, not to mention mis- 
siles, rockets, laser and cannon — all awaiting 
your command. 

If you'd like to see this product for the Atari, 
we suggest that you contact MicroProse at the 
address below and, in a courteous manner, tell 
them so. 

MicroProse is located at 120 Lakefront Dr , 
Hunt Valley, MD 21030 — (301) 667-1151. 
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MORE FROM THE PEOPLE WHO BROUGHT US THE TINK-TONKS 



Mindscape's Thunder Mountain division has 
several new Atari titles, only $9.95 each. 

In Mission in Our Solar System, you control 
a spacecraft touring our system. Landing on 
planets or moons, learn about the "neighbor- 
hood." The more lighthearted Batty Builders 
gives you a shot at constucting a building. Place 



its walls in just the right way, while you try to 
catch falling stones and avoid leftover TNT. The 
folks at TM say this game has high-speed ac- 
tion and hilarious graphics. 

Back in a — damaged — spaceship for Run for 
the Money, you're stranded on the planet Sim- 
ian. You must raise enough money to repair the 



ship, based on realistic economic modules pre- 
pared by an MIT professor Sophisticated prin- 
ciples of economics and fast-paced animation 
with color graphics are part of the fun. 

From Thunder Mountain, 3444 Dmidee Rd.. 
Northbrook, IL 60062 — (312) 480-9209. 
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NEW EPSON DEBUTS 

Epson's new UC-BOO printer offers 9-pin, 80-column capability for a retail cost of only $269.00, 
the lowest-priced dot-matrix printer they offer 

In elite draft character mode, the printer speeds along at 180 characters per second, and, 

in near-letter-quality mode, 30 cps. 
More; pull-type tractor feed, auto- 
matic single-sheet loading, 3K buf- 
fer and front control panel come as 
standard. A parallel interface is uti- 
lized for I/O. 

The LX-800 makes use of the Ep- 
son's FX-style ribbon cartridge, and 
the printer is compatible with older 
and current software which uses 
Epson codes. The front panel al- 
lows easy selection of typestyles, 
without internal switches. A one- 
year warranty is standard. 

From Epson America. Inc., 2780 
Lomita Blvd., Torrance, CA 90505 
— (213) 539-9140. 
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SCHEDULED ATARI FAIRS 

JULY 25 & 26, 1987 — CHICAGO, ILLINOIS 
—CANCELLED— 

AUGUST 28, 29 & 30, 1987 

DETROIT, MICHIGAN 

Southfield Hilton, Soulhfield, Ml 
Sponsored by MAGIC, GLASS & GAG 
Contact MAGIC at 28111 Imperial Drive, 
Warren, Ml 48093 — (313) 751-8291 

SEPTEMBER 19 & 20, 1987 

GLENDALE, CALIFORNIA 

Glendale Civic Center, Sponsored by ACENET 
Contact John King Tarpinion at (818) 760-1831 

OCTOBER 10 & 11, 1987 

WORCESTER, MASSACHUSETTS 

Worcester Centrum, Sponsored by the BCS 
Contact Alan Click at (617) 296-8286 
or ANALOG Publishing at (617) 892-3488 

OCTOBER 24 & 25, 1987 
WASHINGTON D.C. 

Fairfax High School, Fairfax, VA (near Rt. 50) 

Sponsored by NOVATARI 

Contact Geogia Weatherhead at (703) 938-4829 
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48K Disk 



UTILITY 




DiskMend 



Access those sectors directly, 

in single, double or enhanced density. 




by Justin E. Wilder 



Have you ever deleted a disk file — then wished you could 
get it back? Or maybe you were interrupted while working 
with a data file, and later found you could no longer use 
the file because it wasn't properly closed. These are the sort 
of problems that can't be handled through Atari DOS. They 
can only be solved with the help of a utility which can by- 
pass DOS and access disk sectors directly. 

Several utilities of this type have been published , but they 
only work on single-density disk sectors. One of the most 
user friendly of these is Disk Tool by Tony Messina, pub- 
lished in issues 8 and 9 of ANALOG Computing. We now 
present DiskMend, which has many of Disk Tool's features, 
but adds even more convenience and works on disks for- 
matted in single density, double density or enhanced den- 
sity of Atari DOS 2.5 (or any of these densities your disk 
drive can handle). Before it reads each sector, it checks the 
density of the disk in drive 1 and configures itself accord- 
ingly. 

DiskMend requires an Atari 400, 800, XL or XE computer 
with 48K of memory and BASIC, an Atari-compatible disk 
drive and, optionally, an Atari -compatible printer. It's writ- 
ten in Atari BASIC, with machine language routines embed- 
ded in several USR functions. 

Information is recorded on one side of a disk in 40 con- 
centric tracks. Single-density DOS divides each track into 
18 sectors and puts 128 bytes in each sector. The last sec- 
tor isn't used, so that leaves 719 usable sectors. Double den- 
sity uses a method of recording that allows twice as much 
data to be put in the same space, providing 719 sectors of 
256 bytes each. Enhanced density uses the recording meth- 
od of double density, but divides each track into 26 smaller 
sectors of 128 bytes each. Since DOS can only count to 1023, 
there are 16 unused sectors. A sector is the amount of data 



that's written to or read from a disk at one time. (DiskMend 
uses the cassette buffer at address 1021 to hold a sector of 
data in memory while it's being examined or modified.) 

Sector specifics. 

Fewer sectors are actually available for data, since format- 
ting the disk reserves some sectors for special purposes. 
Sectors 1, 2 and 3 are boot sectors. When you Write DOS 
Files to a disk, these sectors are also written, although 
they're not actually part of the DOS files. They're used to 
tell the computer ho^v to load the DOS files into memory 
when the computer is on. These three sectors are always 
written in single density, even when the rest may be in dou- 
ble density. Because of this, DiskMend cannot read the boot 
sectors of a double-density disk. 

Sector 360 is reserved for a "Volume Table Of Contents" 
(VTOC), to keep track of which sectors are available and 
which are in use. Bytes 10 through 99 of this sector indi- 
cate the status of sectors through 719 (1 bit per sector). 
If a bit is on, the corresponding sector is free. If it's off, the 
sector is in use. Sector doesn't exist, so its bit and those 
of the reserved sectors are always off. According to Bill 
Wilkinson's column in the May 1984 issue of COMPUTE!, 
byte indicates the DOS type; bytes 1 and 2 the maximum 
number of free sectors; bytes 3 and 4 the current free sec- 
tor count; byte 5 is a write-required flag; and the next 4 
bytes are unused. Since DOS 2.5 has more sectors to keep 
track of than the remaining bytes would allow, it uses sec- 
tor 1024 as a VTOC extension to show the availability of 
sectors 720 through 1023. This should clear up the math 
if you were confused when I said there were 16 unused 
sectors. 

Sectors 361 through 368 are reserved to record directory 
information for each of the files on the disk. A directory 
entry uses 16 bytes, and a sector can hold up to eight direc- 
tory entries. No, we do not get sixteen entries in a double- 
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density sector. In this case, the last half of each directory 
sector is wasted. Eight entries per sector, times eight direc- 
tory sectors, gives the maximum limit of sixty-fom' files per 
disk. Each directory entry is organized according to the fol- 
lowing chart. 

Byte Status byte 

Bytes 1 & 2 File length in sectors (LSB, MSB) 

Bytes 3&4 Starting sector (LSB, MSB] 

Bytes 5-15 Filename and extender 

The status byte is further broken down with the individual 
bits having meanings as shown in the table below. 

Bit 7 File deleted 

Bit 6 File active 

Bit 5 File locked 

Bits 4-2 Unused bits 

Bit 1 File created by DOS 2 

Bit File open for output 

Thus, a status byte value of 128 [$80] indicates that the 
file has been deleted, and a value of 98 ($62) shows that 
the active file was created by DOS 2 and is locked. A direc- 
tory entry of 66,8,0,3,1,77,89,70,73,76,69,32,32,68,80,32 is for 
an active file named MYFILE.DP, which starts at sector 259 
and is 8 sectors long. 

The remainder of the sectors (707 in single or double den- 
sity, or 1010 in enhanced density) are for use in the files 
recorded on the disk. These may be BASIC program files, 
data files or machine language (binary) files, but they're all 
stored in the same way. They're recorded as data on all but 
the last 3 bytes of each sector. These last 3 bytes are re- 
served for linking sectors of the file together. The first 6 bits 
of the third byte from the end contain the file number (0 
to 63) as a check on the integrity of the file. 

The other 2 bits, along with the next byte, tell the num- 
ber of the next sector of this file. These 10 bits can repre- 
sent any number from through 1023, which explains why 
DOS 2.5 uses only this number of sectors. The last byte of 
each sector tells how many bytes of the file are contained 
in this sector. This is always 125 in single or enhanced den- 
sity, or 253 in double density — unless it's the last sector of 
the file, in which case it may be only partially filled. If this 
is the last sector, the number indicating the next sector of 
the file is set to 0. These 3 sector link bytes are found only 
in file sectors. They're not needed, or used, in any of the 
reserved sectors. 

Using DiskMend. 

First, a word of caution is in order. DiskMend is a power- 
ful utility — and, as such, can be dangerous. If you don't 
really know what you're doing, it will let you make your 
disk files totally unusable. Having a file locked is no pro- 
tection, as the lock is only effective when using DOS. It's 
a good practice to copy any good files to another disk be- 
fore trying to fix a bad one. On the other hand, this utility 
does give you some real help where it's needed most, and 
allows total flexibility to institute any changes required to 
make your files work properly. It warns you with a beep 
and a prompt when it's about to write a change to a disk 
file, and gives you a chance to avoid the change if you want. 

Load and run DiskMend as you would any other BASIC 
program. It always works on the disk in drive 1, regardless 
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of the drive it was loaded from. First, you'll be shown the 
main menu of all the commands available. This is the only 
time the menu will appear, unless you request it by enter- 
ing H for Help. 

The first character of each command is displayed in a 
different color and luminance, to remind you to enter only 
this character for the command you choose (except for the 
first one, where RET means push RETURN). The line at the 
bottom is the common input prompt, to which you will re- 
turn after each command is completed. Normally, this will 
appear at the bottom of the display, showing the results of 
the last command. 

There are several ways to read and display the contents 
of a disk sector. The first is to simply enter the sector num- 
ber, either as a decimal or as $ followed by the hexidecimal 
value. You can access any sector this way, including those 
not used by DOS. Once you've selected a sector, the next 
sector in the file chain can be obtained by pushing RE- 
TURN. Or you can enter + or - to get the next higher or 
next lower sector number. First, the density of the disk is 
determined, then the sector is read into memory and dis- 
played in an easy-to-follow format. The sector in memory 
can be redisplayed in this format at any time, by entering 
R at the command prompt. 

The first line of the sector display tells the density of the 
disk from which the sector was read. Next are the head- 
ings for the three main sections of the display. The column 
at the left gives the byte numbers in hexidecimal values, 
as offset from the begiruiing of the sector. The center sec- 
tion has eight colmnns containing the hexidecimal values 
of data in the sector, reading from left to right across the 
line. At the right are the characters which might be rep- 
resented by the data on that line. A period appears in place 
of any unprintable character. At the bottom of the display, 
on the left, are the number of this sector and the file num- 
ber, determined by the position of its entry in the directo- 
ry, starting with for the first entry. At the right are the 
number of the next sector in the file and the ramiber of bytes 
of the file contained in this sector. These values are derived 
from the contents of the last 3 bytes in the sector. 

An example of the sector display is illustrated below. 



SINGLE DENSITY SECTOR 
BYTEtt HEX 



CHAR 



>$00 


74 


28 


47 


45 


54 


28 


4E 


45 


t GET NE 


>$es 


58 


54 


28 


53 


45 


43 


54 


4F 


XT SECTO 


>$ie 


52 


14 


48 


28 


IC 


8E 


48 


66 


R.GC. .G. 


>$18 


eo 


88 


88 


88 


15 


8F 


BE 


BB 




>$28 


28 


53 


45 


43 


54 


4F 


52 


28 


SECTOR 


>$28 


23 


28 


28 


28 


31 


14 


5C 


28 


U * l.\C 


>S3e 


IC 


8E 


48 


86 


88 


88 


88 


88 


. .G 


>$38 


1'5 


8F 


BE 


8D 


28 


53 


45 


43 


.... SEC 


>$4e 


54 


4F 


Sit 


28 


23 


28 


2D 


28 


TOR U - 


>$48 


31 


14 


7A 


28 


IC 


8E 


48 


86 


I.ZC G. 


>$5e 


08 


88 


88 


88 


15 


BF 


18 


72 


r 


>$58 


45 


44 


49 


53 


58 


4C 


41 


59 


EDISPLAY 


>$68 


28 


53 


45 


43 


54 


4F 


52 


14 


SECTOR. 


>$68 


85 


28 


IC 


8E 


48 


06 


88 


88 


. C. .G. . . 


>S78 


88 


88 


16 


32 


88 


6B 


IF 


28 


. . .2 k. C 


>S78 


IC 


8E 


48 


86 


88 


16 


68 


7D 


■ iGb ■ aki 


SECTOR = 


186 






NEXT 


SEC = 187 


FILE 


U = 


4 








BYTES = 


125 
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If the sector is from a disk formatted in double density, 
half of the sector data is displayed at one time. If you push 
RETURN or enter the command + the next half-sector will 
be displayed. Likewise, if you enter - the displayed data 
will move backward a half-sector at a time. 
Directory List. 

The D command will produce a listing of the informa- 
tion foimd in the directory sectors. This includes all entries, 
even though the file may have been deleted or left open so 
that it cannot be accessed through DOS. The information 
is displayed in five columns. The first two show the file 
number and name with extender. Next is the sector num- 
ber where the file starts, and the file length in sectors. The 
last column shows the status of the file represented by the 
directory entry. The following codes are used for the status. 

A File active 

A* File locked 

A-O File open for output 

D File deleted 

Up to 2 sectors of directory information are displayed at 
one time. If there are more entries to be shown, you can 
push RETURN to display the next 2 sectors. 
Undelete/Close File. 

This command is very useful, but if another file has been 
recorded on the disk since the file was deleted or left open, 
some of the sectors may have been overwritten. Of course, 
the last partial sector of a file left open will be missing. You 
can trace the file before trying to reclaim it, to see if it's 
complete. When you give the U command, DiskMend will 
recover as much of the file as still remains intact. The last 
sector will be marked with a 0, for next sector, and the file 
length in the directory entry will be corrected. However, 
since DiskMend doesn't change the VTOC, sectors can still 
be overwritten. You should immediately copy the file (and 
all other files) to another disk and reformat the disk to cor- 
rect the VTOC and show the true number of free sectors. 
Change Sector Bytes. 

Here's the most powerful (and dangerous] command. The 
sector in memory is redisplayed, along with instructions 
for changing any bytes in it. Use cursor control keys to move 
the cursor to the line where a change is to be made. Type 
over the hexidecimal data with the new two-digit value. If 
you prefer, you can enter a character instead, by typing a 
space over the first digit and the character over the second. 
When you push RETURN, changes you have made on that 
line will be recorded in memory and the sector will be 
redisplayed with the changes. You'll be asked if the changed 
sector should be written to disk. If there are more changes 
to make, enter N and it won't be written to disk yet. Other- 
wise, enter Y to make the disk correspond to the way the 
sector in memory is displayed. At the Change Bytes prompt, 
you can enter a command or sector number, instead of mov- 
ing the cursor to the data area. 
Trace Sector Chain. 

This command makes a list of all the sectors in the file 
and checks the sector links to make sure they're right and 
the file length corresponds with the length given in the di- 
rectory entry. If a link error is found, it's indicated in the 
display as FILE # MISMATCH, PARTIAL SECTOR ERROR 



or FILE SIZE ERROR. A file number mismatch may mean 
the link bytes of the previous sector contain the wrong next 
sector number and need to be modified. A little detective 
work and knowledge of the file being traced make it possi- 
ble to correct such an error. A partial sector error means 
a sector other than the last sector of the file isn't complete- 
ly filled, as indicated by the sector's last byte. The word 
END shows that the trace was successful to the end of the 
file. If the sector listing is too long to fit on-screen, you're 
prompted to push RETURN to see the rest. 

Modify Links. 

This command allows you to easily change the sector 
links of the sector in memory. It provides inputs for the next 
sector number and file number, which are then put into the 
second and third bytes from the end of the sector in mem- 
ory. The sector is redisplayed, and you're asked if the sec- 
tor should be written to disk. If your reply isn't Y, the disk 
will not be changed to incorporate the new links. 

Write Sector to Disk. 

This usually isn't needed; its operation is included in the 
Change Bytes and Modify Links commands. However, any 
sector that's been changed and not written to disk can be 
written with this command. It's recommended that a sec- 
tor be written only to the disk it was read from. If you write 
it to a different one, you may spoil that disk. 

Print Screen. 

This command can be used to transfer the first twenty 
lines of any DiskMend display screen to a printer. In the 
directory list and trace sector chain operations, each screen- 
ful can be printed before you push RETURN to display ad- 
ditional data. 

That's all, folks. 

This concludes the description of DiskMend. The H com- 
mand displays the conunand menu and the Q changes the 
screen colors to their normal condition before ending the 
program operation. 

Use your imagination to see how DiskMend can help you 
with disk problems. For instance, call up a directory sector 
and change a filename with Change Bytes — very handy if 
you try to use the same filename twice. Make a file disap- 
pear, but remain on the disk, by changing the first byte of 
its directory entry to $43. How about finding the Variable 
Name Table of a BASIC program, and changing a variable 
name to a more descriptive one? 

The sky's the limit, but remember — be careful; and know 
what you're doing. H 

A 1953 graduate of the University ofMiciiigan, Justin E. 
Wilder is a Senior Project Engineer /or Johnson Controls, Inc. 
He purchased his Atari 800 in 1980, and his Ultimate Re- 
number Utility was in the Atari Program Exchange. He's a 
member of Indiana-Michigan Atari Group Exchange (IM- 
AGE] users' group. 



The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor II, 
in issue 47. 



(Listing begins on next pagej 
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Listing 1. 
BASIC listing. 



18 REM — DI5KMEHD — by Justin Milder 

, Sept 1985 

20 Ql=l:DXM A$C4e},AN$CQl},l>EN$(8),STa 

$ COIJ ! STflS="N" ! 5ECMAX=i040 ; SECSIZ=128 : 

POKE 82,Ql;TRflP 710 

25 FOR X=1536 TO 1722:REaD VrPOKE X,Y; 

NEXT X 

30 GRftPHlcs 01; POKE 710,212:? tt6;"BSBa 

gggggj^gg^BB" • •* ttfi; " diskwe nd conMa 

nds":? nervBBSBSULM^JJJJ^B" 

40 ? »6;"ret GET NEXT SECTOR":? «6;"" 

SECTOR U * 1":? »6;"" SECTOR tt - 1":? 

tt6;"rEDISPLftY SECTOR":? «6 

50 ? tt6;"dIRECT0RY LIST":? «6;"UNDELET 

E/CLOSE FILE":? tt6;"tRflCE SECTOR CHftIN 

":? »6 

60 ? tt6;"H0DIFY LINKS":? tt6;"CHANGE SE 

CTOR BYTES":? tt6}"WRITE SECTOR TO D5K" 

:? tt6 

70 ? tt6; "PRINT SCREEN":? tt6;"hELP CCOM 

HAND MENUJ";? »6 ;"qUIT PISKMEND" 

80 POP :? " 

IQ "; :INPUT a$ 

90 IF ft$<>"" THEN 140 

100 IF FIL SIZ THEN GRAPHICS 00: POKE 71 

0,212:? " Mijil : i * < : 1 1 1 dmAiii MtmtiJMi FILE " 

;N:? NEXSEC;","; :GOTO 900 

110 IF N THEN GRAPHICS Q0:GOTO 450 

120 IF FBYT<5ECSIZ-128 THEN FBYT=FBYT+ 

128:5TAS="Y":G0T0 320 

130 5ECNUM=HEX5EC : FBYT=QO ; STA$="N" : GOT 

320 

140 IF AS<>"+" THEN 170 

150 IF FBYT<5ECSIZ-128 THEN FBYT=FBYT+ 

128 :STA$="Y": GOTO 320 

160 SECNUM=SECNUM+Q1 : FBVT=QO : STA$="N" : 

GOTO 320 

170 IF ASO"-" THEN 200 

180 IF FBYT>QO THEN FBYT=FBYT-128: STAS 

=•■¥": GOTO 320 

190 SECNUM=SECNUM-Q1 : FBYT=SECSIZ-128 : S 

TAS="N":GOTO 320 

200 IF A$="H" THEN 30 

THEN 1110 

D" THEN 440 



COMMAND or SECTOR NUMB 



210 IF A$="P' 

220 FILSIZ=QO:N=Q0:IF A$ 

230 IF A$="U" THEN 1190 

240 IF AS="T" then 880 

250 IF A$="Q" THEN POKE 7e9,2e2:P0KE 7 

10, 148: TRAP 40000: GRAPHICS Q0:END 

260 IF SECNUM<Q1 OR SECNUM>SECMAX THEN 

310 
270 IF A$="M" THEN 1020 
280 IF A$="M" THEN GOSUB 820: GOTO 80 
290 IF A$="C" THEN 720 
300 IF A$="R" THEN 340 

310 GOSUB 630:SECNUM=UiALCA$I :FBYT=Q0:S 
TAS="N" 
320 IF SECNUM<Q1 OR SECNUM> SECMAX THEN 

? "□ MJiililitiailliriilJiiriTTTffal 1 TO ";SEC 
MAX: GOTO 80 

330 FILSIZ=Q0:N=QO:IF STAS="H" 
SUB 550:REM - Get Sector 
340 GOSUB 350;GOTO 80 
350 GRAPHICS Q0:POKE 710,212:? 
$}" DENSITY SECTOR":? "BYTEtt^^ 

char":rem — Print sector SR 

370 FOR BYT=FBYT TO FBYT+127 STEP 8 

380 PRINT ">S"J :K=USRC1536,BYTJ :PRINT 

:NEXT BYT 

390 IF SECNUM>360 AN D SECNUN<369 THEN 

? "»l>l<;lJ4I.Mmi=f4I.M ";SECHUM:NEXSEC = 5 

ECNUM+Ql; RETURN 

395 IF SECNUM=3 60 OR SECNUM=1024 THEN 

? " K'i<iIi«Ui¥liT!^ "; SECNUM: NEXSEC=SECNUM 



THEN GO 



'►";DEH 
HEX^^ 



420 ? 



Z>2»lHTfZ/2J THEN ? "-0"; 
!N=N+Q1;NEXT X;IF PEEK(84)<16 



TH 



SECNUM >367 T HEN 

PUSH Emmn to 



N=QO:GOTO 
CONTINUE"! 



80 
GOTO 



+01 : RETURN 

400 'if SECNUM<4 then ? " Mi!ilil«.i JiTiTii " 
; SECNUM: NEX5EC=5ECNUM+Q1 : RETURN 
410 GOSUB 430:? "333303 = ";SECNUM;"^^ 
= "; NEXSEC 

30E = ",-PEEKt203J;"^K[IHna = 

";PEEKC204) :RETURN 
12: 430 NEXSEC=U5R(1641,SECSIZ-Q1) :RETURN 
IM. 440 GRAPHICS 00 : SECNUM=360 : N=QO : REM ~ 

t% 460 SECNUM=SECNUM+Ql:GOSUB 550:? " 

SECTOR ";SECHUM 
aj 470 FOR X=1021 TO 1133 STEP 16: IF PEEK 

CXKQl THEN ? :N=Q0:GOTO 80 
Wt 480 ? " ";N;:POKE 85,7:F0R Y=X+5 TO X 

+15:? CHR$(PEEKCYn; :next y:? " ";PEE 

K tX+3J +256»PEEK CX+4 J ; 
M 490 POKE 85,26:? PEEK(X+Q1}+256»PEEKCX 

+2);:P0KE 85,33:Z=PEEK(X} :IF Z>127 THE 

N ? "D"; :GOTO 520 
^C 500 IF Z>63 THEN ? "A";:IF Z>95 THEN ? 

tN 510 IF 
ftt 520 ? 

EN 460 
m 530 IF 
CT 540 ? 

80 
«)y 550 POKE 769,Ql:X=USR(1669} :IF X THEN 

SECNUM=QO:GOTO 590: REM — Drive Status 
Hi 560 DEN$="SINGLE":SECMAX=720:SECSIZ=12 

8:Z=PEEKC746} :IF Z>127 THEN SECMAX=104 

e;DEN$="ENHANCED":GOTO 580 
TN 570 IF Z>31 THEN SECSIZ=256 : DEN$="DOUB 

LE" 
Xe 580 POKE 770, 82: POKE 771, 64: GOSUB 610: 

REM — Read Sector 
m 590 IF X THEN ? U 

SECNUM: SECNUM=Q0: GOTO 80 
IC 600 RETURN 
mr 610 POKE 769,Ql;P0KE 772,253:P0KE 773, 

3:REM ~ Disk Access SR 
^t 620 X=USR C1684.SECSIZ, SECNUM) : RETURN 
iM 630 IF LEN(A$)>1 THEN IF A$ tOl, 01) ="S" 

THEN GOSUB 650 : A$=STR$ CN) 
m. 640 N=Q0! RETURN 

m 650 n=oo:for y=2 to len(A$):rem — Hex 

4 to Dec 

In. 660 Z=ASCCA$CY)):IF Z>47 AND Z<58 THEN 

'l~ N=NK16+Z-48:G0T0 700 

WH 670 IF Z>64 AND Z<71 THEN N=N«16+Z-55: 

GOTO 700 
tg 680 IF Z<>32 THEN H=-01 
;«i 690 POP : RETURN 

SR 700 NEXT Y:RETURN 

SM 710 ? "P M«^Kt<:1ii<:i JUm " ; POKE 789,00: 

POKE 710,214:TRAP 710:GOTO 80 
m 720 GOSUB 350: REM — Change Bytes 
HL 730 POKE 710, 20: POSITION 01, 19;? "H MOU 

E CURSOR, CHANGE LINE, PUSH QOEEIIEr 
VII 740 ? "OR ENTER COMMAND OR SECTOR NUMB 

ER":INPUT A$ 
XJ 750 IF LENCA$)<8 THEN POKE 710,212:N=Q 

0:POSITION Q1,21;G0T0 90 
BS 760 A$=A$C2} ;GOSUB 650 ; A$=A$ C2} :IF N<F 

BYT OR N>FBYT+120 THEN 720 
ftK 770 FOR BYT=N TO N+7;IF LEN CA$)<6 THEN 

800 
W 780 A$=A$(4):IF A$t2,2)=" " THEN POKE 

1021+BYT,ASCCA$C3)]:G0T0 800 
MM 790 GOSUB 650: IF N>=Q0 AND N<256 THEN 

POKE 1021+BYT,N 
4t 880 NEXT BYT: GOSUB 820 : IF AHS="Y" THEN 

N=Qe:GOTO 80 
m 810 GOTO 736 
#i 820 GOSUB 350:POKE 710,64:REM — Hrite 



ISCAN'T READ SECTOR 
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vz 

XV 



NQ 
PT 
5E 



HU 



sector to disk 
83fl ? "Ca WRITE SECTOR •■;5ECMUM;" TO DI 
SK CY/N)": ilNPUT AM$ 

840 IF ANS<>"Y" THEN ? "SECTOR NOT WRI 
TTEN":GOTO 870 

850 POKE 770,8 7;P0KE 771, 128 ; GOSUB 610 
:IF X THEN ? ■■ L1>>*.iM!l;>Vrj JrlrTiini " ■ COTII 

870 _ 

860 ? "SECTOR WRITTEN" 
870 POKE 710,212:RETURN 

880 GRAPHICS OOlPOKE 710, 212 ;GOSUB 998 
:FILSIZ=PEEKCBYT+01J+256»PEEKCBYT+2) :Z 

=Q0:? "«► SaaEMEEBB" 

890 ? "FILE ";N;" ";:F0R X=BYT+5 to by 

T+15:? CHR$ (PEEK (XJ };: next X:? " STftR 

T SECTOR—" ■ NEXSEC 

980 SECNUH=NEX5EC: GOSUB 588 : GOSUB 438: 

Z=Z+01 

910 IF PEEKC2031ON THEN ? :? "Q FILE 

U MISMATCH G SECTOR ";SECNUM!? " CHECK 

PREV SEC LINKS" !FILSIZ=Q0: GOTO 80 
920 IF NEXSEC THEN 950 

930 IF Z=FILSIZ THEN ? "END" : FILSIZ=Q0 
:N=Q0:G0T0 80 

940 ? :? "Q FILE SIZE ERROR"!? Z;" SEC 
TORS INSTEAD OF "; FILSIZ ! FILSIZ=O0 : GOT 
80 

950 IF PEEKtl020+SECSIZ)<>SEC5IZ-3 THE 

H ? "PARTIAL SECTOR" 

960 IF PEEKC84)>18 THEN ? 

Q TO CONTINUE":GOTO 80 



PUSH l:a=till!l 



978 ? NEXSEC;","; :IF PEEKt85J>35 THEN 

? 

980 GOTO 900 



Chipmunk 

Atari Backup Utility 

IF YOU ARE INTERESTED IN BACKING-UP YOUR 
VALUABLE SOFTWARE: 

Please circle our number on the reader 
service card, or for a faster reply, send 
us a self-addressed, stamped, business 
size envelope. We will gladly send you a 
list of programs Chipmunk can back-up, as 
well as information describing all the 
current features of Chipmunk. 

You will find that no other program can 
back-up as many titles or offer as many 
features as Chipmunk. 

MIcrodaft pioneered Atari 8-blt back-up 
software, and we are always working hard 
to make Chipmunk the best back-up program 
for the Atari computers. 

Do not accept any substitutes! 



To order, please send a check or money 
order made out to MIcrodaft, or ask for 
Chipmunk at your favorite Atari dealer. 



micradfaft 

19 Harbor Drive 

Lake Hopatcong, NJ 07849 



$34.95 



FB 

_liitii* 

tM 

€S 

«lif 



QH 



UV 

FF 

OD 
NS 

DH 
SH 



998 ? " FILE NUMBER or hUilhn TO ABDR 

T";: INPUT AS! GOSUB 63e!NyyALrflS)ilF N< 

e OR N>63 THEN 710 

1800 X=INT tN/8) : SECNUM=X+361 : BYT=16K(N 

-X»8) +1021! GOSUB 558! IF PEEK CBYTJ <Q1 T 

HEN ? "E^NO FILEtt ";N:GOTO 998 

1010 NEXSECrPEEK f BYT+3J +256KPEEK f BYT+4 

> : RETURN 

1020 GOSUB 358: POKE 710, 28! REM ~ Modi 

fy Links 

1838 IF SECNUM<4 OR SECNUM>359 AND SEC 

NUM<369 OR SECNUM=SECMAX OR S ECNUM>ie2 

3 THEN ? " LT:[iMW«:Kii»ti«:ii|>A«A'J " ! GOTO 8 8 

1848 ? " HEN NEXT SECTOR » or liUill;!.'! " 

;: INPUT AS! IF AS="" THEN 1878 

1858 GOSUB 630!Z=UALCA$} :IF Z<4 OR Z>3 

59 AND Z<369 OR Z>=SECMAX OR Z>ie23 TH 

EH ? ''UT'liWi1TJ'»-TI'H'l«^<;I3" ; goto 1848 

I860 HEXSEC=Z 

^2*%l 1'* I!^"^^'-^ ** ""^ QSniin";! INPUT 
AS! IF A$="" THEN Z=PEEK (2031 ! GOTO 189 
8 

1888 GOSUB 630!Z=VAL(A$) :I F Z<O0 OR Z> 
63 THEN ? " L'H.LiJiTVJit^IJi:! " ! KflTn 1078 
1090 X=INT(NEXSEC/256) !POKE 1019+SECSI 
Z, NEXSEC-256»X ! POKE 1018+SECSIZ, 4»Z+X 
1100 GOSUB 820! GOTO 80 
1110 TRAP 1180:LPRINT !P OKE 7 10,184!Y= 

4O-20«SGH(PEEK(87}] !? "► r J:»!fc*<T r m-tiJ; ] J J 

^., 

1128 X=PEEK(88J+256»PEEK(89)-Ql!F0R X= 
X TO X+19»Y STEP Y!F0R BYT=Q1 TO Y 
1138 AHS=CHRS(PEEK(X+BYT}} :IF ANS>"^" 
THEN ANS=CHRS(ASC (ANSI -128} 



SOUTHERN SOFTWARE 

205-956-0986 

24 HOUR PHONE 
CALL OR WRITE FOR FREE CATALOG 

SOFTWARE 30% OFF LfST PRICE 

OVER 2000 TITLES MCLUDEO CALL FOR PfflCMQ 
PRICES LISTED FOR MAL ORDER 0M.V - ADD 10% ON PHONE ORDERS 



HAftOHARE 




TITLES NOT LISTED 


CAll 


ST SOFTKAR 




1040 1 S20 5T 


CALL 


CHIPHUW 


29.95 


3-D HELECOPTER 


29.97 


1050 DISK DRIVE 


129.95 


ATARI WRITER » 


34.95 


CCWPULSIVE COPIEI 


29.95 


1050 W/HAPPt mST 269.95 


BASIC CARTRIDGE 


19.95 


COPI II ST 


29.95 


IX IE 


129.95 


BASIC IE 


49.95 


DEGAS ELITE 


47.95 


25« CHIP SET 


21.95 


BASIC >L 


39.95 


COVETED HIRROR 


17.95 


520 DISK DRIVES 


CALL 


COdPUTER WARS 


14.95 


EIPRESS LETTER 


34.95 


850 INTERFACE 


109. 9S 


DEFENDER 


4.99 


GATO 


26.97 


8K OWIIWH 


59.95 


DOS 2.5 N/KANUAL 


9.96 


HID BASE 


69.95 


ACCESSORIES 


CALL 


E.T. PHONE HOKE 


5.99 


CRIHSON CROWN 


17.95 


APE FACE 


A9.95 


GRAPHICS 1,11,111 


14.97 


LEADER BOARD 


24.97 


AVATEI nOOEHS 


CALL 


HAPPT ARCHIVER 


34.95 


LOCIKHRON CLOCK 


39.95 


CABLES 


13.95 


HECAFONT II 


17.95 


HAK UILLIAKS C 


124.95 


CHIP/ARCHIVER SIO 


S9.95 


HIRER 2049ER 


5.95 


HEGAHAI C 


139.95 


EPROH BURNER 


129.97 


HU5IC PAINTER 


6.95 


NOOULA-2 


69.97 


n RAH ilO 


169.95 


P.S. COMPANION 


21.97 


EASY DRAW 


69.96 


HAPPY 1050 EKHANC 


12A.95 


PAGE DESIGNER 


17.95 


POINT OF SALE 


69.95 


KAPPT SIO ENHANCE 


104.95 


DRAGON RAIDERS 


14.95 


PRINT WORKS 


42.97 


HAPPI CONTROLER 


39.95 


PRINT SHOP 


26.97 


PROLOG 


69.95 


HARD DISK DRIVES 


CAll 


RUBBER STAHP 


19.95 


PUBLISH PARTHER 


119.95 


ICD KIO 1 MEG 


CALL 


SPARTA DOS CONST 


29.95 


SOUND DIGITIZER 


119.95 


ICD NIC Z56K 


CALL 


STAR RAIDERS 


6.95 


ROGUE 


22.97 


LIGHT PEN 


69.95 


TIME WISE 


6.95 


RUBBER STAHP ST 


24.95 


NENEIL 256K U.G. 


34.95 


TOP DOS 1.5 PLUS 


29.95 


HOHE PLANETARlin 


20.97 


NUHERIC KE>PAO 


39.95 


TrPESEHER 


19.95 


ST COPY 


29.95 


OHHIVIEW «L/«E 


36.96 


HOHEWORO 


24.95 


LOU BASIC 


69.96 


P.R. CONNECIIOtI 


57.95 


WARP SPEED DOS «l 


24.95 


PC BOARO DESIGNER 169.95 


POKER SUPPLIES 


CALL 


ONE ON ONE 


14.95 


TEMPLE OF APSHI 


19.95 


PRINTERS 


CALL 






STAR RAIDERS 


25.95 


PRINTER CONNECT. 


39.95 


ATARI REPAIR SERVICE 


SWIFTCALC ST 


47.95 


R-riHE CARTRIDGE 


49.95 


ITEHS NOT LISTED 


CALL 


THUNDER 


23.97 


RAHBO «L UPGRADE 


29,95 


1050 DISK DRIVE 


69.95 


TIME BANDITS 


24.97 


RANCHARGER 


139.95 


130 IE 


69.95 


TYPESEHER ST 


24.95 


RANROO »L 


39.95 


520 DISK DRIVE 


89.95 


ULTIMA III 


35.97 


TOUCH TABLET 


69.95 


520 ST 


139.95 


VIP PROFESSIOMAL 


99.95 


U.S. DOUBLER 


29.95 


850 INTERFACE 


49.95 


WINTER GAMES 


24.95 


UPRINT INTERFACE 


69.95 


ATARI PRINTER 


69.96 


WORLO GAMES 


24.95 


HH( SOS 


49.95 


POWER SUPPLY 


12.95 


WRITE 90 


18.97 



CIRCLE #104 ON READER SERVICE CARD 



PRICES SUBJECT TO CHANGE WrTHOUT NOTICE 
ADO $5 FOR SHPPMQ AND MSURANCE . MOST ORDERS SHPPED SAME 

DAY . FOREIGN ORDERS WELCOME WITH SUFFICENT POSTAGE 

MCLUDED. ALABAMA RESDENTS ADD 7% SALES TAX . ADD 61 FOR 

VISA. ADD »5 FOR AflMAL ADO $15 FOR OVERNIGHT SHPMENT 

SOUTHERN SOFTWARE 

1879 RUFFNER ROAD BBMINGHAM. AL 3S210 

CIRCLE »106 ON READER SERVICE CARD 
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3 DiskMend 



continued 



1140 IF ftM$>"*" AND ftMS<"«" OR ftHS=" | " 
THEM 1160 

1150 ftN$=CHRStflSCCftN$)+32J !IF ftNS>"_" 

THEM ftMS="." 

1160 ftStBYT)=AMS!NEXT BYT:LPRIMT flS : HE 
■?« XT K 

1170 POKE 7 10 , 212 ; TRAP 710 'GOTO 80 
^1180 ? "Q iJ!><;iia;Mniia.-M:[iiM !i*iaii:iJ";G 

OTO 1170 

1190 GRAPHICS OOlPQKE 710,64;GQ5 UB 990 

:Z=SECNUM:? " MVUMndkm vAiTAtiWii.-tTlH FILE 

";M:AH$="B" 

1200 Y=SECMUM!SECHUM=HEKSEC:G05UB 580! 

GOSUB 430:IF PEEK C203) =N THEM 1230 

1210 IF FILSIZ THEM SECMUM=Y : GOSUB 580 

!POKE 1018+SECSIZ,MK4!POKE 1019+SECSIZ 

,Q0:GOSUB 850:GOTO 1240 

1220 AHS="C"!G0T0 1240 

1230 FILSIZ=FILSIZ+Q1!IF MEXSEC THEM 1 

200 

1240 SECMUM=Z: GOSUB 580 : X=IHT CFILSIZ/2 

56): POKE BYT+Q1,FILSIZ-256»X:P0KE BYT+ 

2 X 
tiX 1250 POKE BYT,ASC(AM$] :G0SUB 850!? :? 

■' COPY TO AMOTHER DISK CHI"!? :M=QO:FI 

LSIZ=M:G0T0 80 
41 1260 DATA 104,141,254,2,104,170,104,72 

,24,105 
»K 1270 DATA 253,133,214,138,105,3,133,21 

5,142,72 
IN 1280 DATA 3,169,11,141,66,3,104,160,25 
^ 4*132 



i*N 
LE 
UK 
91 



1290 DATA 

,7* 

1300 DATA 

,201 

1310 DATA 

228 

1320 DATA 

228,230 

1330 DATA 

,210,160 

1340 DATA 

,2,169 

1350 DATA 

,8,144 

1360 DATA 

,170,189 

1370 DATA 

,74 

1380 DATA 

9,253,3 

1390 DATA 

3,141,2 

1400 DATA 

04,104 

1410 DATA 

11 

1420 DATA 

3 

1430 DATA 

3 

1440 DATA 



216,48,2,177,214,72,74,74,74 
160,1,132,217,16,3,104,41,15 
10,144,2,105,6,105,48,32,86, 
198,217,16,238,169,32,32,86, 
216,48,247,164,216,192,8,144 
0,152,72,177,214,201,155,208 
46,32,86,228,164,168,200,192 
236,142,254,2,96,104,104,104 
251,3,72,41,3,133,213,104,74 
133,203,189,252,3,133,212,18 
133,204,96,104,133,213,169,8 
3,32,83,228,136,132,212,96,1 
141,9,3,104,141,8,3,104,141, 
3,104,141,10,3,169,49,141,0, 
169,7,141,6,3,32,89,228,172, 
3, 136, 132, 212, 132, 213, 96, END 



Attention Programmers! 



ANALOG Computing is interested in programs, articles, tutorials and hardware/software re- 
view submissions dealing with the whole line of Atari personal computers, including the new ST 
models. If you feel that you can write as well as you can program, then submit those articles 
and reviews that have been floating around in your head, awaiting publication. This is your op- 
portunity to share your knowledge with the growing family of Atari computer owners. 

All submissions for publication, both program listings and text, should be provided in printed 
and magnetic form. Typed or printed copy of text is mandatory and should be in upper and lower 
case with double spacing. By submitting articles to ANALOG Computing, authors acknowledge 
that such materials, upon acceptance for publication, become the exclusive property of ANA- 
LOG Computing. If not accepted for publication, the articles and/or programs will remain the 
property of the author. If submissions are to be returned, please supply a self-addressed, stamped 
envelope. All submissions of any kind must be accompanied by the author's full address and 
telephone number. 



Send programs to: 

Editor, ANALOG Computing 

P.O. Box 23, Worcester, MA 01603. 
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48K Cassette or Disk 
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Polar 
Plotter 



Puts polar equations in their place, 
so you can get creative. 
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by David Bader 



Circles, spirals, roses, clovers, cardioids, lemniscates, and 
lemacons — exotic plants from a strange world? No, these 
are some of the fascinating shapes that can be created by 
polar equations. When you let a computer do the work of 
plotting them, you're left with nothing else to do but cre- 
ate and experiment with this separate area of geometry (ex- 
plained later). 

Polar Plotter will enable you to flaunt your imagination 
because of its ease of use. All you have to do is enter a for- 
mula and press RETURN. The program adds these special 
features: automatic scaling, the option to superimpose up 
to four formulas, two stages of labeling and bordering, a 
printout routine ["49-Second Screen Dump" supplied by 
Compute's Second Book of Atari), and a screen dump utili- 
ty (formatted from Magniprint by Alpha Systems). 
What's a polar equation? 

Imagine a circle; it's not too hard. Now, find the center 
of the circle and draw a radius stretching from the center 
horizontally to the right. Make the radius a distance of 1 
unit. Using the same scale that measures this radius, meas- 
ure the circumference of the circle. This length is 2*P1* 
Radius, where PI=3.14159. PI, simply, is the distance aroimd 
one-half of the circle. 

Therefore, taking a ordinary number line, with the radi- 
us of the circle as a distance of 1 on this line, and wrap- 
ping it around the circle would measure a circumference 
of about 6.28319, or 2*PI. On the number line, PI is just 
a distance between 3 and 4, and we call the units on this 
number line radians. So radians aren't some complicated 
way of measuring angles; they're simply real numbers on 
a number line. 

Back to our circle now. We'll name our horizontal radius 
the polar axis. We can stretch this axis to the right to in- 



finity. The left point of the polar axis, (the center of the cir- 
cle) we will call the pole. 

Now, let's imagine a line, or ray, over the polar axis like 
the hand of a clock. This ray makes an angle of with the 
polar axis. Let's rotate the ray counterclockwise from the 
polar axis. Put a point on this ray You can descibe this point 
with the polar coordinates (R,theta). Here, theta is the an- 
gle, in radians, that the ray makes with the polar axis. R 
is the distance, on the ray, from the pole to the point. 

Let's make a formula to describe this distance from the 
pole to the point on the ray, in terms of the angle of rota- 
tion, theta. Such a formula could be: R=theta. As the an- 
gle gets bigger, the distance, R, gets longer. Therefore, this 
equation would describe a spiral getting larger and larger 
as the angle gets bigger and bigger. Consider the facts that 
R can be negative and theta can wrap around itself for in- 
finite revolutions (a full revolution is 2* PI). Think of equa- 
tions like: R=COSfthetaJ, R = COS(thetaJ*SIN(thetaJ, or— 
get crazy— R=2 + SIN(2*D+2J-ABS(COS(3*D+7)J. . .just 
see what happens. 

How to run Polar Plotter. 

This program will first inquire how many formulas you 
wish to plot. You can plot up to four equations on one graph, 
superimposed using the same scale. 

Next, you simply input the formula(s) at each prompt. 
Type R=/uncfion in terms of D, where D is theta. The pro- 
gram will calculate and plot the function for the interval 
[0,2* PI]. Remember, when you enter a formula you're res- 
tricted by BASIC'S constraints: dividing by 0, taking the 
square root of a negative value, improper number of paren- 
thesis, etc. 

Second, you're asked for the absolute endpoints, the max- 
imum allowable value of R. You can select for the option 
of entering your own value or having the program autoscale 
the value itself. The program won't err if the function goes 
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^p Polar Plotter continued 



beyond the selected endpoints; it only plots the formula 
within the selected domain. The reason for the manual op- 
tion is to allow you to either zoom in on the function or 
just attain the desired effect. 








OBS.EHDPOI 
3. 999964 


NTS 
6 5 


RftDir CIRCLES 


2.99997548 


1.9999823Z 


0.9999911625 




Finally, you're asked for an eight-character filename, to 
save the screen to disk if you choose to do so after it's drawn 
up. You can select a default name, SCREEN. MP, by simply 
pressing RETURN. 

Polar Plotter will then begin to graph the function(s). If 
you selected the autoscaling option, it will proceed with 
that first. Once it's finished, it soimds off with a beep, tell- 
ing you that you can now proceed with the choices here. 
(1) OPTION — The first time this is pressed, it will 
draw cross axes, circumscribe a bordering circle with 
a radius of the absolute endpoints, label the absolute 
endpoints, and title the screen with the formula(s). The 
second time it's pressed, it sketches in two more cross 
axes and three more concentric circles within the 
graph, complete with labels. 

[2] SELECT — Pressing this will save the current 
screen to disk in Magniprint format. 

(3) START — This will enable the "49-Second Screen 
Dump" and print the current screen, for the Gemini SG- 
series printers. 

(4) ESC — This will erase the screen and rerim the 
program, without going through initialization again. 

Program breakdown. 

Lines 20-80 — Main loop to draw plots of the equation(s] . 
Part of this loop is also used to draw the concentric circles 
making up the graph borders. Actually, R and theta are con- 
verted to Cartesian coordinates and then translated properly 
for display on part of the graphics 24 screen. 

Lines 101-104 — These lines are entered by the program, 
which builds them from the entered formula(s), tacking on 
a RETURN statement. 

Lines 130-140 — Autoscaling routine. 

Lines 160-310 — Saving routine supplied verbatim by 
Magniprint on disk. 

Lines 330-360 — "49-Second Screen Dump." 

Line 370 — Sound to indicate that the program is ready 
to take any of the console key commands. 

Lines 380-410 — Loop to read console keys and check 
ESCAPE key. 

Lines 430-460 — Initialization and loading of two ma- 
chine language routines. 

Lines 470-480 — Introduction screen. 

Lines 490-530 — Formula entry screen. Takes inputs and 
enters them as program lines, using the forced read mode. 



Lines 540-580 — Final prompt screen. 

Line 590 — Sets up display screen. 

Lines 600-784 — These lines and subroutines draw the 
axes and borders, and label the screen with the scale and 
formula(s) used. 

Lines 791-794 — Subroutine used during formula entry 
to remember formula (s) for future labeling. 

Lines 860-920 — Data for the machine language routine 
to superimpose text over the graphics 24 screen. 

Lines 930-940 — Data for "49-Second Screen Dump." 

Table 1. — Sample functions. 



R=D 



R=D*2 R= 

R=1-C0S(D) 



-D*2 



R=D 



R=-D 

R=1+C0S(D) 
R=1+SIN(D) R=1-SIN(D) 

R=2-hSIN(3 * D+2)-ABS(COS(3 * D)) 

R=2-hGOS(2 * D+2)-ABS(SIN(3 * D-7)) 

R=3*SIN(3*D) R=2*SIN(3*D) 

R=SIN(3*D) 
R=2*D R=3*D R=4*D 

R=2+COS(3*D)-ABS(SIN(4*D)) 

R=COS(D) R=1+C0S(D) 

R=2+C0S(D) R=3+C0S(D) 

R=COS(D) R=-COS(D) 

R=SIN(D) R=-SIN(D) 



Table 1 gives you some equations to try, to get you started 
using Polar Plotter. Now get creative! P 

David Bader is noiv studying Mechanical Engineering. For 
close to /our years, he's been enthusiastically hacking 
through BASIC to create adventure games and mathemat- 
ics programs fthe original inspiration for issue 30's Z- 
Plotter]. Writing, creative artwork and technical drawings 
are among his most avid hobbies (along with computing, 
of course), 



The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor II, 
in issue 47. 



Listing 1. 
BASIC listing. 



:|f!U! 18 GOTO 430 

mi 28 XM=96/'Z!F0R Q=l TO NUH:T=Q 
¥n 38 B=e:F0R D=e TO 6.3 STEP 8.875:GDSUB 

lee+T 

|.l> 48 IF ABS(R)>Z THEN B=8:G0T0 88 

M« 58 R=R*XM:X=C05tDJ»R:Y=SIMtDJ»R»e.83 

tH 68 IF B=8 THEM PLOT X+288, 191- C88+YJ iB 

= 1 
Jl 78 DRAMTO X+288, 191- C8e+YJ 
SE 88 NEXT D;NEXT QIGOTO 378 
VY 181 REM 
m 182 REM 
HE 183 REM 
Mi 184 REM 



FORMULA ENTERED DURING RUN 
FORMULA ENTERED DURING RUN 
FORMULA ENTERED DURING RUN 
FORMULA ENTERED DURING RUN 
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rV 138 ? :? "ftUTO SCALING. . ."iZrerFOR T=l 
TO NUM:F0R D=G to 6.3 STEP 8.e75:G0SU 
B 10e+T:lF R>Z THEN Z=R 
JC 140 NEXT D:NEXT T:GOTO 590 
XK 150 REM »160-310 IS 'flS IS' SUB ROUTINE 

l!:!f!£4^?„^^ EESaiJEHaB TO 

SftVE A GR.24 SCREEN TO DISK. 
QP 158 RM=8: 10=1: CLOSE ttlOiOPEN ttI0,RW,8, 

IB 178 PUT »I0,24:F0R 1=784 TO 712 ; PUT ttl 

0, PEEK CI) ;NEXT I 
NO 180 RAMT0P=PEEK(186I»256 
00 198 DLIST=PEEK(568}+256«PEEKC561} 
NY 208 ADDRESS=DLIST 
rW 218 NUNBER=RAMT0P-DLIST+1 
AF 228 I0=16»I0 

OF 238 I0CB=832+I0:P0KE I0CB+2,RM+3 
K5 240 ()DRHI=INT(AI>DRESS/256} 
FT 258 ADRL0=ADDRESS-ADRHI»256 
KT 260 POKE I0CB+4,aDRL0:P0KE I0CB+5,ADRH 

aO 270 NUMHI=INT(NUNBER/256} 

FM 280 NUML0=NUHBER-256KNUMHI 

ax 290 POKE I0CB+8,NUML0:P0KE I0CB+9,NUMH 

I 
NZ 368 I=USRfftDRC"hhhSLUB"),IOJ 
TF 310 CLOSE »I0/16 : RETURN 
H« 328 REM *"49 SECOND SCREEN DUMP" 
KQ 330 CLOSE tt5:0PEN «5,8,8,"P:" 
IE 348 ? tt5;CHR$C27};"A";CHR$(8] :F0R X=DM 

TO DM+39 
05 350 A$=CHR$Ce) :A$(192)=A$:A$C21=A$ 
UO 360 Q=USRC1536,X,ADRCA$)1 :LPRINT CHRSf 

27) J "K"; CHRS tl92) ; CHRS 18) ; AS : NEXT X : RE 

TURN 
■>& 378 SOUND e,18e,18,18:F0R T=l TO 180:N 

EXT T:souND e,e,e,e:POKE 754,255 

ZC 388 T=PEEKC53279) :IF T=3 THEN BD=BD+1: 

GOTO 588 
M 398 IF T=5 THEN GOSUB 168 
ET 488 IF T=6 THEN GOSUB 338 
PZ 418 IF PEEKC764)<>28 THEN 388 
JL 420 BD=8:G0T0 478 

iJ 438 RAD :DIM Q$ (49) , N$ (49) , E$ (49) , R$ (4 
9) , T$ (49) , F$ (28) , A$ (193) , ZS (169) ! GRAPH 
ICS 24 
A8 448 DM=PEEK(88)+PEEK(89)«256;DM=DM+4e» 
191 

458 REST8RE 868: FOR T=l TO 168: READ Q : 
;Z$(LEN(Z$)+1)=CHR$(Q) :NEXT T 
■468 FOR T=l TO 61:READ Q : POKE 1535+T,Q 
■ " NEXT T 

1470 GRAPHICS 8: POKE 82,0:POK E 718,144 : 
POKE 7e9,12:P0SITI0N 8.8:? "^■i^QQIIli 



BADER'S POLAR PLOTTER! 



tti 480 ? "NUMBER OF FORMULA'S TO ENTER";: 
INPUT NUM:IF NUM>4 THEN 478 

m 490 FOR T=l TO NUM 

500 ? :? " Willi ;l!lliy;^i:J.'K!l'JMii;lj^Tia " ; ? 
y, :? "INPUT FORMULA AS R=IN TERMS OF 'D 

g,A* ■ WHERE 'D'=THETA" 

** 581 ? "FORMULA « ";T: INPUT Q$ 

518 GOSUB 788+T:P0KE 559, : Q$ (LEN (0$) + 
1)=": RETURN":? "«"!P05ITI0N 8,6:? 108+ 
T;Q$:? :? "CONT"!POSITION 0,0 

tlH 528 POKE 842,13:ST0P 

¥X 530 POKE 842,12:P0KE 559,34:NEXT T 

SK 540 ? :? "KPLEASE CHOOSE I 13 AUTOMATIC 
SCALING (ABS. BOUNDS) |2] MANUAL 
SETTING. ":INPUT T:IF T=l THEN 550 
550 ? :? "ABSOLUTE ENDPOINTS"; ! INPUT Z 
568 FS="D:":? :? "INPUT TITLE OF SAVED 

J'^^FU^iS''^^'*"^'^' ^** l"=^H;NJ:»:tJ FORM 

AT (8 CHARACTERS MAX)" 
SJ 578 INPUT QS:IF QS="" THEN FS="D ; SCREE 

N . MP" 
10 588 F$(LEN(F$)+1)=Q$:IF T=l THEN GOSUB 
130 



590 GRAPHICS 24: POKE 710, 58: POKE 712,5 

8:P0KE 709,8:C0L0R l:GOTO 20 

688 IF BD=1 THEN GOSUB 670: TRAP 370 : T= 

53e:G0T0 38 

618 IF BD=2 THEN PLOT 275, 55 : DRAMTO 14 

1,167;PL0T 141,55:DRAMT0 275, 167 : GOSUB 

730: FOR 0=1 TO 3 : T=53e+Q : GOTO 30 
620 GOTO 378 
638 R=Z:RETURN 

631 R=3«(Z/4} : RETURN 

632 R=Z/2:RETURN 

633 R=Z/4: RETURN 
678 FOR T=l TO NUM:GOSUB 790+T;IF LEN( 

_^, QS)>39 THEN 0$=QS(1,39) 

m, 688 X=8:Y=(T-1) : GOSUB 718: NEXT T:PLOT 

112,lll:DRANT0 302,lll:PLOT 208,32:DRA 

WTO 208,190 

m 690 X=34Y=6:0S="|SS=n": GOSUB 7 10:V=7 

: OS="ICHEnEil" : GOSUB 710 : v=8 : 0S=" ^— 

a":GOSUB 710 ^^^^ 

EH 700 X=0:Y=10:Q$="ABS.ENDPOINTS:":GOSUB 

710:Q5=STR$(Z) :X=(14-LEN(QS))/2:Y=ll: 

GOSUB 710:RETURN 
KT 710 Q=USR(ADR(Z$),X,V,ADR(QS),LEN(QS)) 

: RETURN 
SO 720 QS=" ": GOSUB 710:RETUR 

N 
fiN 738 X=8:Y=12: GOSUB 720 : Y=13 : OS="RADII 

CIRCLES":GOSUB 710 : Y=14 : GOSUB 720 
Fl> 740 «$=STRS(3»Z/4) :Y=15!X=(14-LEN(QS)) 

/2:G05UB 710:X=O:Y=16:GOSUB 720 
T5 750 QS=STR${Z/2) :Y=17:X=(14-LEN(0S))/2 

: GOSUB 710 :X=0:Y=18: GOSUB 728 
m 758 0S=5TR$(Z/4) :Y=19:X=(14-LEN(0S))/2 

:GOSUB 718:X=8:Y=20:G0SUB 720 
^ 778 RETURN 
mi 781 M$=()$: RETURN 
ikl. 782 E$=Q$: RETURN 

783 R$=Q$:RETURN 

784 T$=Q$: RETURN 

791 Q$=W$: RETURN 

792 Q$=E$: RETURN 

793 Q$=R$: RETURN 

794 Q$=T$:RETURN 

868 DATA 104,281,4,248,9,170,248,5,184 
, 104, 202, 208, 251, 96, 104, 133, 215, 104, 13 
3,214,184,184,168,104,133 

TZ 878 DATA 217,184,133,215,184,184,248,2 

36,133,212,24,165,214,101,88,133,214,1 

65,89,101,215,133,215,152,240,15 
UE 888 DATA 165,214,105,54,133,214,165,21 

5,105,1,133,215,136,208,241,132,221,16 

8,0,132,220,177,215,160,0,170 
ZK 898 DATA 16,1,136,132,213,138,41,96,28 

8,4,169,64,16,14,281,32,208,4,159,8,16 

,6,281,64,288,2 
FF 908 DATA 169,32,133,218,138,41,31,5,21 

8,133,218,159,8,162,3,6,218,42,282,288 

,258,189,244,2,133,219 
»Z 918 DATA 164,221,177,218,69,213,164,22 

8,145,214,288,132,228,196,212,288,182, 

24,155,214,105,40,133,214,144,2 
VO 928 DATA 238,215,230,221,169,8,197,221 

,208,159,95,287,96 
«? ?ZQ DATA 104,184,141,21,6,184,141,28,6 
.04,141,27,6,104,141,26,6,168,193,173 
i55, 255, 136, 248, 35, 141, 255, 255, 238 
BW 948 DATA 26,6,248,21,173,28,6,56,233,4 

0,141,20,6,144,4,24,76,19,6,286,21,6,7 

6,19,5,238,27,6,75,33,6,96 
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by Isaac Szlechter 



This article was originaiiy pubfisiied in 
(he Juiy 1986 issue o/ COMPUTER LAN- 
GUAGE. We thought the topic deserved a 
return performance, since the iegaJities 
are often clouded. 

One of the most legitimate concerns of 
a computer program writer is how to pro- 
tect his work. When a computer manufac- 
turer brings suit or settles a case out of 
court for copyright infringement involv- 
ing an operating software program, it usu- 
ally brings into focus the protection the 
copyright law offers. 

To bring this protection to the attention 
of programmers, ANALOG Computing of- 
fers the following answers to frequently 
asked copyright questions. 

Q What is copyright itself? 
A Copyright is a form of protection pro- 
vided by the laws of the U. S. to the au- 
thors of original works of authorship, in- 
cluding computer programs. 

Q To what rights am I entitled under copy- 
right law? 

A The Copyright Act gives the owner of 
a copyright program the exclusive right to 
do and to authorize others to do the fol- 
lowing: 

— Reproduce the copyrighted program. 

— Prepare derivative works based upon 
the copyrighted work. 

— Distribute copies of the copyrighted 
program to the public by sale or other 



transfer of ownership, or by rental, lease 
or lending. 

These rights give you control over how 
your work is used, and assure you of re- 
ceiving payment for any use of your work. 

Q Who can claim copyright? 
A Copyright protection subsists from the 
time the work is created. It is an incident 
of the process of authorship, and immedi- 
ately becomes the property of the author 
who created the work. Only the author — 
or those deriving their rights through the 
author — can rightfully claim copyright. 

Q In the case of works made for hire, who 
can claim copyright? 
A The employer and not the employee is 
presumptively considered the author. 

Seymour Vidur, a Brooklyn, New York 
attorney, explains, "the copyright statute 
defines a 'work made for hire' as: a work 
prepared by an employee within the 
scope of his employment; or a work spe- 
cially ordered for use as a contribution to 
a collective work, as a supplementary 
work; or if the parties expressly agree in 
a written instrument signed by them that 
the work shall be considered a work made 
for hire." 

Q What is not protected by copyright? 
A Several categories of materials, listed 
below, are generally not eligible for statu- 
ary copyright protection. 

— Works that have not been fixed in a 
tangible form of expression. 

— Titles, names, short phrases and slo- 



gans; familiar symbols or designs; mere 
variations of typographic ornamentations 
or lettering; mere listing of contents. 

— Ideas, procedures, methods, systems, 
processes, concepts, principles, discover- 
ies or devices, as distinguished from de- 
scriptions, explanations or illustrations. 

— Works consisting entirely of informa- 
tion that is common property and con- 
tains no original authorship. 

Q How con I secure a copyright? 
A Under the law, copyright is secured au- 
tomatically upon creation of the work. 
The way in which copyright protection is 
secured is frequently misunderstood. No 
publication or registration or other action 
in the Copyright Office is required. There 
are, however, certain definite advantages 
to registration. 

Q What are the advantages of a copyright 
registration? 

A The copyright law provides several ad- 
vantages to encourage copyright owners 
to make registration. 

— Registration establishes a public rec- 
ord of the copyright claim. 

— Registration is ordinarily necessary 
before any infringement suits may be filed 
in court. 

— If made before or within five years 
of publication, registracion will establish 
prima facie evidence in court of the va- 
lidity of the copyright. 

— If registration is made within three 
months after publication of the work or 
prior to an infringement of the work, stat- 
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utory damages and attorney's fees will be 
available to the copyright owner in court 
actions. Otherwise, only an award of ac- 
tual damages and profits is available to the 
copyright owner. 

Q What do I have to do to register my 
program? 

A If you choose to register your program, 
send the following three elements to the 
Copyright Office in one envelope: a prop- 
erly completed application Form TX; a $10 
filing fee payable to the Register of Copy- 
rights; and a deposit of the program be- 
ing registered. 

Q What are the deposit requirements? 
A For published or unpublished computer 
programs, one copy of identifying por- 
tions of the program (first twenty-five and 
last twenty-five pages], reproduced in a 
form visually perceptible without the aid 
of a machine or device, either on paper 
or in microform, together with the page 
or equivalent unit containing the copy- 
right notice, if any. 

"The Copyright Office believes that the 
best representation of the authorship in 
a computer program is a listing of the pro- 
gram in source code," says J. Smith, a 
Copyright Office spokesman. 

If a published user's manual (or other 
printed documentation) accompanies the 
computer program, deposit two copies of 
the user's manual along with one copy of 
the identifying portion of the program. 

Q Is a notice of copyright required? 



A Yes, a notice of copyright is required, 
even on works published outside of the 
U.S. 

Q What should the notice contain? 
A The notice should contain the follow- 
ing elements: the symbol © [the letter C 
in a circle], or the word Copyright, or the 
abbreviation Copr; the year of first publi- 
cation of the program; and the name of 
the owner of copyright (for example: © 
1985 John Doe). 

Q Where do I affix the copyright notice? 
A Each of the following is an example of 
acceptable methods of affixation and po- 
sition of notice: 

— A notice embodied in the copies in 
machine-readable form, in such a man- 
ner that on visually perceptible printouts 
it appears either with or near the title, or 
at the end of the work. 

— A notice that is displayed at the user's 
terminal at sign-on, 

— A notice that is continuously on ter- 
minal display. 

— A legible notice reproduced durably, 
so as to withstand normal use. 

Q How long does the copyright protection 

endure? 

A A program is automatically protected 

from the moment of its creation, and is 

ordinarily given a term endm-ing for the 

author's life, plus an additional fifty years 

after the author's death. 

Q Does my copyright protect me all over 
the world? 



A "There is no such thing as an 'interna- 
tional copyright' that will automatically 
protect an author's program throughout 
the entire world," explains Smith. 

Protection against unauthorized use in 
a particular country depends on the laws 
of that coimtry. However, most cormtries 
do offer protection to foreign works, un- 
der certain conditions simplified by inter- 
national copyright treaties and conven- 
tions. For a list of countries which main- 
tain copyright relations with the U.S., 
write to the Copyright Office, Washing- 
ton, DC 20559, and ask for "Internation- 
al Copyright Relations of the U. S. ," Cir- 
cular R38a. 

Q How are transfers of copyrights made? 
A "Copyright," says Mr. Vidur, "is a per- 
sonal property right, and is subject to the 
various state laws and regulations that 
govern the ownership, inheritance or 
transfer of personal property, as well as 
terms of contracts." 

Transfers of copyright rights on a non- 
exclusive basis do not require a writing, 
but the transfer of exclusive rights is not 
valid unless that transfer is in writing — 
signed by the owner of the rights con- 
veyed. 

"It is a good idea to confer with a law- 
yer who specializes in computer law or in- 
tellectual property protection, before you 
enter into any agreement," says Mr. Vidur. 

Q What does "public domain" software 

mean? 

A Public domain means that the software 
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MON.-FRI. 
9A.M.-9P.M. CST 

EXTENDED HOURS 



ARE YOU BEING RIPPED OFF? 

BY EXCESSIVE SHIPPING CHARGES AND CREDIT CHARGES 
CALL THE FAIR MAIL ORDER COMPANY 

€x>n.!iiun£'L,f2ecfu>n.liis 



ATARI 800/ XL/ XE COMPUTERS 



SATUTDAY 
IIA.M.-SP.M.CST 

EXTENDED HOURS 



ATARI 130XE 
COMPUTER 

CALL FOR LATEST PRICE 



ATAR1 1050 DISK 
DRIVE 

CALL FOR LATEST PRICE 



AVATEX 2400 HC BAUD 

MODEM 

CALL FOR LATEST PRICE 



NX-10 PRINTER 

& 

SUPRA 1150 INTERFACE 

$239 



AVATEX 1200 HC MODEM 

& 

P.R. CONNECTION 

WITH ATARI MODEM CABLE 



$179 



MISCELLANEOUS 
HARDWARE 

PR COWNECTIOM CB »UPB»11S01HreFF»ce....».« 

US DooaLE«v m.m tan mrEFFAce..- .c*ll 

ANIKATKJH S\K\VM....1»M ORAPHtC *T mTEBFACe... ».H 
ATAn XM 301 MOOEM...CAU. AVATEX 1200 HC MODEIII..1B.00 



PANASONIC 10801 PRINTER 

& 

SUPRA 1150 INTERFACE 



PANASONIC 10911 PRINTER 

& 

SUPRA 1150 INTERFACE 



PANASONIC 10921 PRINTER 

& 

SUPRA 1150 INTERFACE 



$219 



$289 



$349 



ACCESSORIES 

6 Way Surge 

Protector 19.95 

Monitor Cable 6.95 

Printer Stand H.95 

Swrvet/Titt Monitor 

Stand 19.95 

Anti-Glare Screen 10.95 

TeakwoodDlsk 

Hddore 19.95 

Disk Notcher. 5.95 

.....Call 
-....Call 
-...Call 
_M.95 
_14.95 



Blank Disks 

Printer Rlt^bons 

Dust Covers 

Modem Catte 

Printer Cable 

1000 Sheet Printer 
Paper ™— 



_19.95 



XLENT SOFTWARE 

Megalont 11 16. 9S 

Xlent Word Proces8or_18.95 

Page Designer . 18.95 

Meganier 18.95 

Picture Disk 14.95 

PS Interface 18.95 

Rubber Starrp -18.95 

Typesetter 21 .»s 

BROOERBUND 

Karatoka 19.95 

Print Shop __ 28.95 

Bar* Street Writer 32.95 

GrapNc Ub 1.2,or 3.._16.9S 
Print Shop Compan 22.95 



ELECTRONIC ARTS 

Ago ol Adventure 10.95 

Archon . 10.96 

Archon II 10.95 

Finandal Cookbook 10.95 

Mall Order Monsters — 10.95 

Movie Maker , ^10.95 

Music Construction 10.95 

One on One. 1 0.95 

PInball Construction. —10. 95 

Racing Destruction 10.95 

7 cues of Gold —10.95 

Super Boulder Dash. — „10.95 

Touchdovm Foolbail 10.95 

Chessmaster 2000.__-25.95 

CWckaurmuga 23.95 

Lords ol Conquest 22.95 

ewe 25 . 95 

- ■ • _26.95 

-33.95 
-27.95 



Rommel/Toburk- 

Starfleet 1 

Ultima 1 

Ultima III 



Ultima IV 38.95 



DATASOFT 



Alternate 

Heallty/aty 

Alt Reali^/Dungeon- 
Gunslinger._ 



.25.95 
.20.95 



Video TUle Shop 23.95 

221 Baker Street 20.95 

The Mercenary 20.95 

Theatre Europe —23.95 

Data Dlsk/Mercenary._11.95 



No surcharge for 
Master Card 



To Order Call Toll Free 



SSI 

Carrier Force 37.95 

Wargame Constr. Set — 19.95 

BroadsWos 24 . 95 

Computer Ambush 37.95 

Rghter Command 39.95 

Reld ol Hro 24.95 

Imperium Galacticum_24.95 

Warship 39.95 

Kampgruppe 37 . 95 

Battle ol Antietam 32.95 

USAAF 37.95 

Phantasle 27.95 

Wizard's aown._ 27.95 

Gettyburg 39.95 

Panzer Gronider_ 24.95 

Rebel Charge 32.95 

Battlocruiser 39.95 

ACTIVISION 

Cross Country Race.-— .1 1 .05 

Hacker 11.95 

Mindshadow 16.95 

Music Sludlo _22.9S 

GhosSxjsters 1 1 .95 



JOYSTICKS 

(NOTE; Prices good wtien 
wUh any other purchase) 

WIco Super 3-Way 19.95 

Unite Joystick 5.95 

Starllghler - 8.95 

Tac3 10.95 

Silk Stick 7.95 

Epyx 500X1 _. 12.95 

MICROPROSE 

Silent Service -22.95 

F-15 Strike Eagle 22.95 

Decision in Desert— —25.95 

Kennedy Approach 16.95 

Crtjsade in Europe 25.95 

Conflict in Vietnam— ™25. 95 
TopGimer 16.95 

OPTIMIZED SYSTEMS 

Basic Xe 44.95 

Action 44.95 

Mac 85 Xi 44.95 

Basic XL 34.95 

Al Tool Kits Each 19.95 



WE CARRY 100'S OF 
PROGRAMS FOR THE 8 BIT 
ATARI COMPUTERS IF YOU 
DONTSEEIT, 

CALL 



MISCELLANEOUS 

Right Simulator 2 33.95 Print Driver Const. 

Universe 57.95 SeL 16.95 

Stilp Poker 21.95 TAC 25.95 

Micro League Jupiter Mission 1999-32.95 

Baseball 25.95 Blue Max 2001 _19.95 

Harcout/Brace SAT. 59.95 Championship 

General Mgr. MLB. 25.95 Loderumer.-— 19.95 

Hght Night 18.95 Home Accointant 30.05 

Hardball 18.95 Apshal Trilogy 14.95 

Triple Pak 14.95 Summer Games 14.95 

Leader Board —24.95 World Karate 

Toum Disk/Leader Championship 19.95 

Bd 14.95 R Tllme 8 Cart— 54.95 

Executive DIskAjeader Halley's Project 10.05 

Bd 14.95 Mastertype 25.95 

Tenth Frame 27.95 Word Attack 32.05 

Inllltrator 19.95 Math Blaster 32.05 

Bop'n' Wrestle 19.95 Spell It 32.95 

SuperHuey 16.95 DLM Teaching .CAU. 

Home Planetarium -27.95 Spinnaker — CALL 

Atariwriter Plus 39.95 Hardball.- 18.95 

MLB Boxcore/Stat 16.95 AceOtAces. 18.95 

SPY V8 SPY 182 -_10.»5 Ultima 2 — 28.95 

Vkieo Vegas... 20.9S Mrca Mach II 20.95 

Blazing Paddtes. -.22.95 The Pawn 25.95 

Trailblazer 19.95 

""'°*=°" SYNAPSE 

HItchlker 17.95 »TNAKS>E 

Wlshbringer 1 1 .95 Siwalc 32.95 

Ballyhoo 25.95 Syntilo 32.95 

Moonmist 22.95 LodonM«ir» Rescue._19.95 

Leather Goddess 22.95 Syncalc Templates 16.95 

Hollywood HIjinx 22.95 E»"« 25.95 

Zork Trilogy 39.95 MIndwhoel 25.95 

Brimstone 25.95 



800-558-0003 



SINCE 1982 

'Cofnpu±(flblLLty. 

P.O. BOX 17882, Milwaukee, Wl 53217 
ORDER LINES OPEN 
Mon,-Fri. 9a.m.-9p.m. CST Sat. 11a.m.-5p.m. CST 
TELEX NUMBER 9102406440 

(ANSERBACK • COMPUT MILW UQ) 



No surcharge for 
Visa 



For Technical Info, Order 
Inquiries, or for Wise. Orders 

414-357-8181 



CIRCLE #106 ON READER SERVICE CARD 



MON. - FRI. 
9A.M.-9P.M. CST 
EXTENDED HOURS 



ARE YOU BEING RIPPED OFF? 

BY EXCESgVE SHIPHN^G CH^AR^^^^^^ CHARGES 

Con 3 umct j^/cc <to/i ^C4 



SATURDAY 

11A.M.-5P.M. CST 

EXTENDED HOURS 



ATARI 520ST SYSTEM 
PACKAGE 

INCLUDING RGB OR MONOCHfKHC MONITOa 

MOUSE, DISK D»Ve,BASIC, 

T08 ON BOM, AND RF MODUUTOR 

FULL MANUFACTURER'S WARRANTY APPUES 



ATARI SF 314 DISK DRIVE 

DOUBLE SIDED/ 1 MEGABYTE STORAGE 



CALL 



ATARI 520ST / ATARI 1040 ST 

ATARI 1040ST SYSTEM 
PACKAGE 

INCLUDING HOB on MONOCHROME MONITOR, 
MOUSE, DOUBLE-SIDED DISK DRIVE,BA8IC 
TOS ON ROM, AND BUILT-IN POWER SUPPLY, 
FUg MANUFACTURER'S WARRANTY APPUES 



ST MODEM PACKAGE 

•AVATEX 1200HC MODEM 

•ST MODEM CABLE 

•ST TALK TELECOMMUMICATIONS PACKAGES 



SUPRA 

20 MEG 

HARD DRIVE 

ONLY 

$559 



OKIMATE 20 COLOR PRINTER 

& 

ST PLUG N' PRINT 



$145 



$205 



EPSON 

LX86. ...189 

FX86E 339 

ex 800 409 

EX 1000. M9 

FX288E „.... 479 

L0800 _ 489 

LQ lOOO ...669 

LQ 2500 929 



STAR MICRONICS 

NX-10 CALL 

NL-10C. CALL 

NP-10 CALL 

NX-16 309 

ND-15 ...399 

NR-15 479 

NB-24/10. ^439 

NB-24/15<24»«tr») CALL 



PANASONIC 

PANASONC 10601 CALL 

PANASONC 1081 L CALL 

PANASONC 10821 „ CAU 

PANASONC 3131 268 

PANASONC3151 409 

PANASONC15e2. ..409 

PANASONC 1S95 .449 



OKIDATA 

OKIDATA 120. 215 

OKIDATA 182. 249 

OKIDATA 192+ 369 

OKIDATA 193+ 558 

OKIDATA 292E .449 

OKIDATA 2S3E 598 



CANON 

CANON A-60 279 

CANON A-55 389 

CANON A-60 .549 

SEIKOSHA 

8P-180 .169 

SP-1000A. 199 

SP-1200... 209 



BROTHER 

BROTHER 1000 139 

BROTHER 1609 379 

BROTHER 1708 489 

BROTHER HR 35 749 

BROTHER 2024 LD 81 9 

TWINWRITER 5 .339 



ST ADVENTURES 

Hacker 17.95 



Hacfcsr II- 
SuTdog- 



-25.95 
-24.95 



MICHTRON 

BBS 2.0 48.95 



Slack CaUdron-, 25.95 

Apthal Trilogy 25.95 

Unlvarse ll._ ^_44.95 

Tl» Pavm 2*. 95 

-M.M 
-84.1 



Business Tool _ 
Calender- 



Cornerman.. 

DOS Shell 

E*a_ 



—31.95 
—18.95 
-31.95 



ST EDUCATK3NAL 

Decimal Dungeon _.24.95 

Fraction Acllon 24.95 

Kinderama. 24 . 95 



INFOCOM ST 

Forever Voyaging—.— 29.95 
Bally Hoa„ 



ST ARCADE GAMES 



Read iRhyme- 
Malh Wizard. 



-24.95 
.-24.95 



Boreaucracy. 

Cutthroats 

Deadlne. 



-25.96 
-25.95 



Winter Games- 
RoguB- 



-25.95 



Super Huey- 
Mean 18.—.- 



-24.95 
-24.95 



Stargllder.. 
DLngeorvnattec- 



M-Dlsk +- 
Major MoUon.- 



Altemat* Reallty- 

Taas Times. 

Mercenary — ™— 
Autoduel — 



-Ajg 



-32.95 
-25.95 



Ogre- 

Oetandsrol Crown 32.95 

S.D.I 32.95 

Balance ol Power 32.95 

Ultima III or IV 38.95 

Portal 32 . 95 

Kings Guest 1,2 or 3 32.95 

Space Queet _32.95 

Tracker 29 . 95 

Cotonlal Conquest.. 25.95 

Roadwar 2000 25.95 

Wlzartfs Crown 25.95 

Rings ot ZBdn .—25.95 

SInbad _. 32.95 



Mi-Term 31 .95 

Michtron Utilities 37.95 

Carts 24 . 95 

The Animator 24.95 

Time Bandits 24.95 

Mighty Mall 31.95 

Personal Money Mgr 31.95 

PInball Factory _24.95 



Animal Kingdom 24.95 

Speller Bee 31.95 

Kid Talk 31.95 



Enctwnter — . 19.95 

Hltchlker 19.95 

Infidel — . 28.95 



First Shapes 

Winnie *w Pootl- 
Buzzword.. 



-31.95 
-15.95 
.29.95 



LeetHrGoddssa.- 

Moonmlst 

PianetlalL. 



25.95 

-25.95 
-25.95 



Famous Course Disk. 

Leader Board 

Brattacus—— .— 

Silent Service™ 



-25.95 
-14.95 



Skyfox 

Super Cyde- 
ST Pool. 



-14.95 
-22.95 



-32.95 
-25.95 



Rnanclal Future- 
Eight Ball- 



-24.95 
.18.95 



Hard Disk Backup 24.95 

Match-point —24.95 

Karate Wd 11 24.95 

GFA Basic —48.95 



Trimbase- 
Shutlle 2_ 
M-Cache- 



-62.95 
-24.95 



-52.95 



-29.95 



GokJen Pati— 

Phantaslo 1,2 or 3_— 25.95 

ST ACCESSORIES 

FKp'n' FHe II- Micro- 19.95 

Dustcovera. Call 

3.5 Drive aean Kit 18.95 

Mouse Pad 8.95 

Mouse i^ouse e.95 

e Way Surge 
Protector — 



.19.95 
.19.95 
.19.»5 



Anti-Glare Screen., 
e FT SF 354 Cable.. 
DESKTOP PUBLISHING 

Drawrite — . 99 . 95 

Publishing Partner 99.95 

CASIO KEYBOARDS 

CZ 101 Call 

CZ 230S Call 



Journey to tie Lair 32.95 

GFA Comiiller 48.95 

Realtjzer 149.95 

Goidhinrwr 24 . 95 

ST PRINT UTILITIES 

Rubber Stamp 24 . 95 

Prinlmaster Plus 24.95 

Megalont ST 24 . 95 

Art Gallery 1 or 2 18.95 

Typesetter Elite 31.95 

PM Interface 18.95 

Cemncate Maker 31.95 

Library 1/Cert'llcate 

Mkr 2 1 . 95 



Read-A-Rama 31.95 

Aesop Fattos 3 1 . 95 

Magical Myths 31.95 

All About America.— 31 .95 

Adv. of SInbad. _— 31 .95 

Arabian Nights 31.95 

Wiztype 25 . 95 

1st Letters and Words_31.95 
Math Talk Fractions 31.95 

ST UTILfTIES 

Music Studio 32.95 

Time Unk 33.95 

Midipiay 32.95 

Micro Cookbook-. 32.95 

CZ Drold 89 . 95 

...39.95 



Seastalker. — . 26 . 95 

Sorcerer——. —.58.95 

Spellbreaker —.—31 .95 

Starcross — . 31 .95 

Suspect- -. 26 . 95 

-.31.95 
—25.95 
.-11.95 
—25.95 



Flight Simulator 11- 33.95 

Champ. Wrestling 24.95 

World Games 24.95 

Video Vegas... —24 . 95 



Strip Poker- 



-25.95 



Ut Computer People._1 1.95 
G«to 3 1.95 



Indoor Sports 32.95 

F-15 Strike Eagle 27.95 

High Roller Simulator_32.95 
Two on Two Basketball_25.95 

Deep Space . 29 . 95 

Arena — . ..22.95 

ST Karate — —..22.95 

The Wanderer —25.95 

Champ Baseball '86 25.95 

GFL Footbal 25.95 



Suspended. 

Trinity 

Wlshbrlnger- 

WHnesa 

Zork 



-25.95 
-28.95 



Star Raiders 

Chessmaster 2000. 

Tenth Frame 

Shan^iEd. 



.-29.95 
—25.95 
—25.95 



Harrier Srike —31.95 

Space Stat/Protector— 25.95 
Sub Battle Slmu(ator.-24.95 

Arctic Fox — .. 26 95 

RPV 24.95 



EZ Track- 



ST TELECOMM 

ST Talk Ver 2.0.— Call 

BB/ST .— 31 .95 

Rash 27.95 



Write 90 . 18.95 

Fast —J 1 . 95 

Labelmaster Elite 27.95 

Video Wizard 39.95 

K-Switch —27 . 95 

Desk Cart 72.95 

ST WORD 
PROCESSORS 

Regent Wort 11 48.95 

Wordwrfter ST 48.95 

Thunder— 26 . 95 



Microsoft Write- 
Word Perfect 



Call 

Call 



I.S Talk.. 



-33.95 



HIPPOPOTAMUS 

Call lor Items wA prices 



Zork II or III.. 

Hollywood Hijinxs 25.95 

ST LANGUAGES 

Personal Pascal .49.95 

Marti Wllllama C 114.95 

Metacomco Pascal 89.95 

Macroassembler 49.95 

Lattice C. — 144.95 

Cambridge Usp 139.95 

Module II 67.95 

Metacomco Make 49.95 

Module II Developer' Call 

Fast Basic 89.95 

Fortran 77 124.95 

LOW Basic 44.95 

ST DATABASES 

DB Man 96.95 

Regent Base 1.1 7S.96 

Data Manager ST ^48.95 

Zoomracks II 96.95 

Siiwbaae Gem 94 . 95 



3-D Helicopter-. 

Micro League Basebail.3g.95 

WWF Micro Wre8tllng.39.95 

ST BUSINESS 

VIP Professional— Call 

Swiftcaic ST 48.95 

Isgur Portfolio 124.95 

Financial Cookbook 32.95 

DAC Payroll 32.95 

DAC Easy Accounting— 44 . 95 

Dolars and Sense 64.95 

Home Accountant 31 .95 

Sylvia Porter ^43.95 

A-Calc Prime — 39.95 

LoglsUx Jr . 57.95 

Loglstix Sr 89.95 



Crystal Castles 

Gridiron Football. 

ST Wars 

Hardball 



-20.95 
-42.95 
-24.95 



ST GRAPHICS 

Degas Elte 52.95 



Easy Draw 

Cad 3-D — 

GrapHc Artist- 

Paintworks 

latCadd 



..48.95 
-36.95 
-124.95 
-25.95 



Textpro 

Data brieve. 
Forth MT— 

Paintpro 

Asaempro. 



ABACUS 



-32.95 
-32.95 



Powerplan ^49.95 

Abacus Books... Call 



Aegis Animator— 48.95 

Art I /Aegis Animator_21 .95 

Neo<*inxne . 34.95 

Stereo Cad 3-D— 67.95 

DISKETTES 

Sony 3.5 SS/DD 

(10 PK) 13.M 

Sony 1.5 DSyOO 

(10 PK) U.9C 

Note: tui DisliMe* at tmm 
lew pricwahsnadiMtoviy 



No surcharge for 
Master Card 



Tb Order Call Toll Fim 

800-558-0003 



P.O.BOX 17882. MIWAUKEE. Wl 53217 
OHOEH LINES OPEN 
Mon.-fri eLrTL-Sp.tn CST S^. 1 1 •.m.-Sp.m. CST 



'C.oinputcflblUt^ 



No surcharge for 
Visa 



For Technical Info, Order 
TELEX NUMBER 9102406440 ^ jnqulrt*^ or tor Wl«!^rt.rii 
nRnpRINR IMFDRIUIATinM- i'««"«"«.co«put.«u.u«, 4 ■4~3 Sy'SISI 



Please call (4141 357-8181 to obtain an fl.A. H or your return m 
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"^ Copyright Q&^A 



continued 



is free from copyright protection and, 
hence, open to use by the pubHc. Anyone 
can use it and reprint it without permis- 
sion. 

Q When does computer software become 
public domain? 

A With very few exceptions, the copyright 
on any work pubhshed or copyrighted be- 
fore September 19, 1906, lias now expired 
by operation of law, and the work has per- 
manently fallen into the public domain in 
the U. S. Also expired is the protection for 
software first published or copyrighted be- 
tween September 19, 1906 and December 
31, 1949, but not renewed. 

Under the copyright law in effect prior 
to January 1, 1978, copyright could be lost 
and, therefore, software would become 
public domain in several situations. The 
most common were: publication without 
the required copyright notice, expiration 
of the first 28-year copyright term with- 
out renewal, or final expiration of the sec- 
ond copyright term. 

For work first published on and after 
January 1, 1978, certain omissions of or 
defects in the notice of copyright may lead 
to loss of copyright protection if specific 
steps are not taken to correct or cure the 
omissions or defects. 

Mrs. Rich, a Copyright Office Informa- 
tion Specialist, explains that "software be- 
comes 'of public domain' if the author 



leaves the copyright notice off, fails to reg- 
ister his work within five years after the 
publication without notice, and does not 
make a reasonable effort to add the no- 
tice to all copies that are distributed to the 
public in the U.S. after the omission has 
been discovered." 

Q How can I find out the copyright sta- 
tus of a computer software work? 
A There are several ways you can find out 
whether software is under copyright pro- 
tection and, if so, the facts of the copy- 
right. These are the main ones: 

— Examine a copy of the work for such 
elements as a copyright notice, place and 
date of publication, author and publisher. 

— Make a search of the Copyright Of- 
fice catalogs and other records. 

— Have the Copyright Office make a 
search for you. 

Copyright investigations often involve 
more than one of these methods. In many 
cases, it is important to consult a copy- 
right attorney before reaching any conclu- 
sions regarding the copyright status of 
computer software. 

Even if you conclude that a work is in 
the public domain in the U. S. , this does 
not necessarily mean you are free to use 
it in other countries. Every nation has its 
own laws governing the length and scope 
of copyright protection, and those regu- 
lations are applicable to uses of the work 



within that nation's borders. Thus, the ex- 
piration or loss of copyright protection in 
the U.S. may still leave the computer soft- 
ware fully protected against unauthorized 
use in other countries. 

Q Where can I get additional information? 
A Questions relating to copyright prob- 
lems not mentioned in this article can be 
addressed to the Information and Publi- 
cations Section, LM-455, Copyright Of- 
fice, Library of Congress, Washington, DC 
20559. 

The following publications may be ob- 
tained: Circular Rl "Copyright Basics"; 
Circular R2 "Publications on Copyright"; 
Circular R22 "How to Investigate the 
Copyright Status of a Work"; Circular R61 
"Copyright Registration for Computer Pro- 
grams"; and Circular R99 "Highlights of 
the Current Copyright Law." 

The hot-line number is (202) 287-8700. 
You can order applications forms at any 
time by telephoning (202) 287-9100. B 

Isaac Szlechter, a New York City-based 
free-lance writer, specializes in business 
and technology reporting for various mag- 
azines. He has a Bachelor of Science de- 
gree from the University of the State of 
New York, and is a member of the Authors 
Guild. 



Get 

this 

issue 

on 

Disk! 



$9.50 plus $1.50 

shipping and 
handling 




Call 
(617) 892-9230 



MOVING? 

DON'T MISS A SINGLE ISSUE 

Let us know your new address right away. Attach an old mailing label in the 
space provided below and print your new address where indicated, 

QUESTION ABOUT 
YOUR SUBSCRIPTION? 

Check the appropriate boxes below: 

n New subscription. Please allow 4 to 8 weeks for your first copy to be 

mailed. 
D Renewal subscription. Please include a current address label to insure 

prompt and proper extension. 
D 1 year — $28.00. This rate limited to the U.S. and its possessions. 
D Payment enclosed. D Bill me. 

MAIL TO: ANALOG Computing, 
P.O. BOX 625, HOLMES, PA 19043 

Name 

Street Address 

City 



1 



State . 



Zip. 



ATTACH LABEL HERE 

(IF LABEL IS NOT HANDY, PRINT OLD ADDRESS IN THIS SPACE.) 
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High or low resolution 



ST APPLICATION 



V/ 



Bio-signs 





A program to show 
you what rhythm 
your body's 
following. 



by Patton Lockwood 



Writing a bio-rhythm program has always been a chal- 
lenge and, for many, a rite of passage — from innocence to 
a start toward mastery of a computer language. 

Analyzing a bio-rhythm program someone else has writ- 
ten can be equally challenging. The following program, 
based on a prehistoric version that clanked over the tele- 
type terminals back in 1975 (did they really have computers 
back then?], has been drastically modified and enhanced 
to run on the Atari ST. 

Bio-signs was written primarily to explore the capabili- 
ties of ST BASIC, as well as the ST color monitor's ability 
to produce brilhant primary colors. The high-resolution out- 
put is a bit slower [there are four times as many pixels to 
deal with), but this mode produces a superior printout on 
a dot-matrix printer (Epson FX or Panasonic 1091). 

The charts generated by Bio-sigjis have been checked for 
accuracy. All three sine waves will start at on your birth- 
day and return to 0,0,0 only after 21252 (33*28*23) days 
— 58 years and 69 days later Check it, starting with a birth- 
date of January 1, 1900. The curves should come together 
again on March 10, 1958. The three sine waves (which are 
color coded in the low-resolution output) have the correct 
periods. The "Intellectual" curve repeats every 33 days; the 
"Emotional," every 28 days; and the "Physical," every 23 
days. The GEM window is scaled to 33 days and divided 
into one-week blocks which are clearly labelled. 

The theory of bio-rhythms, as a means of explaining and 
predicting your hfe, is based on the assumption that three 
cycles regulate your emotional, physical and intellectual ca- 
pacities. Starting on the day you were born, they continue 
imtil the day you die. According to this theory, when the 
sine waves that trace these cycles are "High," your poten- 



tial in these areas is strongest. When they are "Low," your 
potential is weakest. In addition, when a curve crosses the 
zero level in either direction, the capacity it represents is— 
at that time— particularly unpredictable and unstable. A day 
when this happens is considered "Critical." 

If the curves don't happen to match up with the facts in 
your life, there are three popular rationalizations: (1) your 
cycles got messed up because of a serious illness or a trau- 
matic injury you experienced earher in Ufe; (2) you're a left- 
brain dominated person and should be using cosine rather 
than sine waves (substitute the cosine function for the sine 
function in Line 860 to invert the curves); and (3) the the- 
ory is really not scientific, but provides us with an intrigu- 
ing stimulus to consider carefully these three important 
dimensions of our lives. 

Using Blo-signs. 

The headings in the listings indicate the major elements 
of the program. Comments indentify many of the subor- 
dinate steps. Bio-signs will work on both monochrome and 
color monitors; choose high or low resolution. The latter 
uses color changes liberally. The high-resolution version 
uses different lines for the three sine waves. 

To rim the program after you've typed it in (or loaded 
it from disk): (1) double-chck the BASIC. PRO icon; (2) on 
the file menu, first select "Load" and then click on BIO- 
SIGNS. BAS; and (3) type Run or click "Run" on the run 
menu, then follow the prompts. 

After the chart is on-screen, pressing RETURN will of- 
fer you two options. Type in Y to start another chart, any 
other letter on the keyboard to quit. 

A screen dump is a standard procedure on the ST. It can 
be done at any time by holding down ALTERNATE and 
pressing HELP. Before you can dump any screen to a printer, 
however, you'll need to change the printer configuration. 
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// Bio-signs continued 



If yovir TOS is on disk, click the "Install Printer" item on 
the desk menu and change the pixels/line from 1280 to 960 
by clicking the appropriate box. 

If your TOS is in ROM, you'll have to start up with the 
ST Language Disk, or use an ST Utility Disk to get the "In- 
stall Printer" capabiUty. Switching from 1280 to 960 allows 
the entire bio-chart to fit across the width of a standard 
8V2Xll-inch piece of paper. The monochrome chart prints 
clearly and is a joy, but the dump from the color monitor 
produces sine curves which are difficult (if not impossible) 
to differentiate, unless you're one of the favored ones who 
happens to have a color printer. 

Have fim! P 

Patton Lockwood is a professor of speech and theatre at 
Longwood College in FarmviDe, Virginia. He purchased his 
520ST last October, and is currently learning to program 
in Modula-2. 



Listing 1. 
ST BASIC listing. 

10 • BIOSIGNS 

20 ■ by Patton Lockwood, June, 1986 

30 ' 

40 ■ COLLECT INFORMATION 

50 din aC12), b(12} 

60 dim a$C31, n$(36] ,n$C201 

70 n$="JaNFEBMARAPRMAYJUNJULAUGSEPOCTN 

OyDEC" 

80 fullw 2;clearw 2 

90 rez=peekc systab ) 

100 if rez=2 then gosub CHECKREZ 

lie gotoxy 2,5 

120 print "YOUR NAME, PLEASE" 

130 gotoxy 12,6: input n$ 

140 gotoxy 2,7 

150 print "BIRTHDAY CM,I>,YJ e.g. 2,16, 

1930"; 

160 gotoxy 18,8: input M,d,y 

170 if M>=1 and M<=12 then 206 

180 gosub CHECKMONTH 

190 goto 140 

200 if d>=l and d<=31 then 230 

210 gosub CHECKDAYS 

220 GOTO 140 

230 gotoxy 2,9 

240 print "START CHART tM,l>,YJ e.g. 7, 

8,1986" 

250 gotoxy 18,10: input nl,de,yl 

260 if Ml>=l and nl<=l2 then 290 

270 gosub CHECKHONTH 

280 goto 230 

290 if de>=l and d0<=31 then 320 

300 gosub CHECKDAYS 

310 goto 230 

320 • DAYS LIVED 

330 restore 

340 for x=l to 12: read atxJ: next x 

350 DATA 0,31,59,98,120,151,181,212,24 

3,273,304,334 

360 for x=l to 12: read BCx): next x 

370 DATA 31,28,31,38,31,30,31,31,30,31 

,30,31 

388 J=aCn)+d: 'days before birthday 

390 if y=yl and m=m1 then Days=de-d:go 

to 520 

400 if y=yl then gosub sameyear 

410 IF y=yl then goto 520 

420 dl=365-j+absf Cj<=68J and ty/4=intc 

y/4})}: 'days in BirthYear 

438 d2=365»Cyl-Cy+lJJ 



448 LeapDays=8 

450 for CYear=y+l to yl-1 

460 LeapDays=LeapDays-i'abs CCYear/'4=int C 

CYear/4)} 

470 next CYear 

480 d3=A(nl)+de: 'days in target npnth 

490 d3=d3+absCy/4=int(y/4] and Cd3>=60 

)) 

500 Days=dl+d2+d3+LeapDays 

510 ' DETERMINE CYCLES' PHASE 

520 IShift=Days nod 33 

530 EShift=Days MOd 28 

540 PShift=Days nod 23 

550 clearw 2 

568 if rez=4 then color 2,1,5 

570 if rez=4 then fill 1,1 

580 TW0Pi=6. 2831852 

590 if rez=4 then gosub LOMREZ else go 

sub HIGHREZ 

600 writenode=2 

610 gosub USHRMODE 

620 print "BIORHYTHM CHART MADE ESPECI 

ALLY FOR" 

630 if rez=4 then color 6 

648 if rez=4 then gotoxy 18-len(nSJ/2, 

1 else gotoxy 18-lenCn$J/4,l 

658 print n$:XDay=de+l 

660 if rez=4 then color 5 

670 if XDay>bCnl) then gosub INCREMENT 

680 if rez=4 then rcol=28 else rcol=35 

690 if rez=4 then stp=7 else stp=7.85 

788 for x=8 to rcol step stp 

718 gotoxy x+8.5,15:print XDay 

728 gotoxy x+0.5.16 

738 print nidSCnS,nl»3-2,3> 

740 XDay=XDay+7 

750 if XDay>bCnl) then gosub INCREMENT 

S 

760 next X 

770 if rez=4 then gosub LOMREZINFO els 

e gosub HIGHREZINFO 

780 Pixels=IPixels 

790 C=IShift/33»TW0Pi 

800 if rez=4 then color 2,1,3 

810 ■ SINE HAUE LOOP 

820 for Z=l to 3 

830 OldX=0 

840 for x=0 to MaxPix 

850 if x>=MaxPix-l goto 980 

860 y=a»sint(-TwoPi«x/'Pixels)-cJ : 'the 

key fornula 
870 y=y+XAxis: 'center curve on x-axis 
880 if x=o then goto 970 
890 if rez=4 goto 960 
988 if z=l then linef oldx,oldy,x,y 
918 if z=2 then linef oldx,oldy-l,x,y- 
1 

920 if z=2 then linef oldx,oldy+i,x,y+ 
1 

930 if z=3 then linef Dldx,oldy-2,x,y- 
2 

940 if z=3 then linef oldx,oldy-i'2,x,y+ 
2 

950 goto 970 
960 linef oldx,oldy,x,y 
970 oldx=x: oldy=y 
980 next X 

990 if Z=l then gosub EMOTIONAL 
1088 if Z=2 then gosub PHYSICAL 
1818 next z 

1820 if rez=4 then gotoxy 34,16 else g 
otoxy 37,17 
1030 input MAIT$ 

1040 if rez=4 then gotoxy 2,17 else go 

toxy 10,19 

1050 print "Another chart? CY or HJ <RE 

TURN>"; 
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1868 input a$:if a$="V" or a$="y" then 

88 
1878 clearw 2 
1888 END 
1898 PHYSICAL: 
1188 Pixels=PPixels 
1118 C=PShift/23«TwoPi 
1128 if rez=4 then color 2,1,2 
1138 return 
1148 EMOTIONAL: 
1158 Pixels=EPixels 
1168 C=EShift/28«TWOPi 
1178 if rez=4 then color 2,1,12 
1188 return 
1198 INCREMENTS: 

1288 XDay=XDay-bCnl} 

1218 Ml=Ml-i-l 

1228 if Hl=13 then yl=yl+l 

1238 if nl=13 then h1=1 

1248 return 

1258 USMRMODE; 

1268 poke contrl,32 

1278 poke contrl+2, 8 

1288 poke contrl+6, l 

1298 poke intin,2 

1388 VdisysC 1 } 

1318 return 

1328 CHECKMONTH: clearw 2 

1338 print "PLEASE SELECT A MONTH" 

1348 print "BETMEEN 1 AND 12!" 

1358 return 

1368 CHECKDAYS: clearw 2 

1378 print "PLEASE SELECT A DAY" 

1388 print "BETWEEN 1 AND 31!" 

1398 return 

1488 SAMEYEAR: 

1410 Days=CaCMl)+de}-(aCn}+d] 

1428 Da9s=Days+absCCy/'4) + intCy/4) and 

a(M}+d<=68 and aCMl)+de>=6e) 

1438 return 

1448 LOMREZ: a=48: 'anplitude in pixe 

is 

1458 linef 8,83,383,83: 'the K-axis 

1468 XAXiS=83:dV=8; 'divisions 

1478 for Z=8 to 384 Step 9.2 

1488 dV=dV+l 

1498 if dv=2 or dv=9 or dv=16 or dv=23 

or dv=3e then goto 1520 
1588 linef z,XAxis,z,XAxis+3 
1518 goto 1538 
1528 linef Z,4e,Z,134 
1538 next z:gosub USHRMDDE:gotoxy 2,8 
1548 return 

1558 HIGHREZ: arlOO: 'anplitude in pix 
els 

1568 linef 8,158,616,150 
1578 XAxis=158:dv=8: 'division Hark 
1588 for z=8 to 616 step 18.65 
1598 dv=dv+l 
1688 if dv=2 or dv=9 or dv=16 or dv=23 

or dv=30 then goto 1630 
1618 linef Z,XAXiS,Z,XAxiS+6 
1628 goto 1648 
1638 linef Z,45,Z,255 
1648 next z:gotoxy 9,8 
1658 return 
1660 LOMREZINFO: 

1670 gotoxy 0,l7:print yl; : 'year of c 

hart 

1680 color 3:print "Intellectual "; 

1690 color 12:print "Enotional "; 

1788 color 2:print "Physical"; 

1718 IPixels=384:EPixels=258:PPixels=2 

12 

1728 MaxPiX=384 

1730 return 

1740 HIGHREZINFO: 

1750 gotoxy 0,17:print yl; : 'chart yea 



1760 gotoxy 10,18:print "Intellectual" 

1770 gotoxy 20,18:print "EMOtional" 

1780 gotoxy 30,18:print "Physical" 

1790 linef 128,318,160,318 

1800 linef 290,318,338,318:linef 290,3 

16,330,316 

1810 linef 460,316,S0e,316:linef 460,3 

20,588,320 

1826 IP ixelS=616:EPixelS=522. 66666 :PPi 

xels=429. 33333 

1838 MaxPiX=616 

1840 return 

1858 CHECKREZ: 

1860 print "Please use HIGH or L0I4 res 

olution" 

1878 print "Press <RETURN> to clear sc 

reen": input MAIT$ 

1888 clearw 2 

1898 END 



ST CHECKSUM DATA. 

fsee page 77} 

10 data 583, 248, 356, 128, 911, 653 
, 192, 526, 739, 357, 4685 

118 data 713, 708, 937, 728, 259, 40 
1, 512, 761, 412, 453, 5876 

210 data 475, 393, 733, 341, 982, 64 

1, 768, 410, 599, 474, 5888 

318 data 391, 888, 550, 225, 124, 23 
3, 522, 382, 537, 21, 3865 

418 data 35, 475, 246, 853, 47, 223, 

990, 740, 577, 386, 4572 

510 data 765, 761, 761, 787, 389, 66 
6, 225, 264, 758, 4, 5372 

610 data 479, 319, 239, 17, 826, 246 
, 48, 924, 728, 525, 4351 

710 data 672, 190, 31, 975, 44, 323, 

866, 580, 754, 648, 5883 

818 data 530, 853, 247, 656, 452, 41 

2, 26, 895, 595, 587, 5253 

918 data 959, 950, 969, 960, 441, 15 

0, 451, 333, 71, 819, 6183 

1818 data 381, 834, 895, 799, 579, 8 
48, 537, 919, 883, 684, 7191 

1110 data 739, 413, 443, 910, 587, 7 
21, 517, 448, 51, 442, 5271 

1218 data 280, 968, 531, 447, 859, 2 
95, 424, 438, 93, 887, 5854 

1310 data 447, 178, 297, 359, 451, 9 
94, 992, 363, 455, 795, 5331 

1418 data 147, 524, 452, 69, 994, 84 
2, 197, 343, 648, 644, 4868 

1518 data 568, 347, 29, 456, 183, 49 

1, 561, 408, 347, 648, 4638 

1610 data 654, 575, 365, 809, 460, 1 
25, 183, 268, 541, 168, 4132 

1718 data 107, 825, 461, 253, 768, 7 
29, 102, 848, 749, 141, 4983 

1810 data 110, 361, 848, 465, 815, 2 
35, 572, 562, 944, 4984 
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A DIVISION OF MICRO PERIPHERALS, INC. 

P.O. BOX 369 • KETTERING, OHIO 45409 




A, 

ATARI 



HARDWARE/ACCESSORIES 



ATARI 

ST'! Color or Mono CALL 

ST Monitor Cables CALL 

SF 314 Double Sided Drive CALL 

Supra 20. 30. 60 Meg Hard Disks CALL 

SH 204 20 Megabyte Hard Disl< CALL 

SC 1224 RGB Coior Monitor CALL 

130 XE CALL 

65 XE CALL 

1050 Disl( Drive CALL 

1 020 Coior Printer/ Plotter 27 

Astra "The One" 284 

7800 Pro System & Software CALL 

Power Suppiy 400/800/810 1050/850 15 

Power Supply 600/800 XL. 130 XE 26 

Power Supply tor Indus GT 15 



PANASONIC 

KX-P1080;. 120 cps CALL 

KX-P1091/. 160 cps CALL 

KX-P1092/. 240cps CALL 

KX-P1592 136 col. True 180 cps 549 

KX-P3131 L.O. Daisy. 80coi 279 

KX-P3151 L.Q.Daisy. 136 col 429 

KX-P110 Ribbon. Bll< 9 

COLORRIBBONS 11 



CITIZEN 

MSP-10 CALL 

MSP-15 CALL 

STAR MICRONICS 

NX-10(80col) CALL 

NP-10 NEWMODEL 179 

NL-10 CALL 

NX-15(135col) 429 

STAR SG-10 Ribbons 4 

Ribbons NL or NX CALL 

MODEMS 

SX-212 CALL 

XM-301 Direct Connect CALL 

HAYES 1200 Smarlmodem 399 

US ROBOTiCS COURIER 2400-100% Hayes! 429 

HABA 1200 (Hayes Compatibie) 119 

VOLKSMOOEM VM 520 (Hayes Compat) ... 139 

AVATEX1200bps Special 89 

AVATEX 1200 H.C. (Hayes Compatible) ,129 

INTERFACES/BUFFERS 

ATARI 850 inStoCll! 119 

P:R: CONNECTION (100% 850 compatible) .69 

CABLES • We've Got 'Em CALL 

XETECGRAPHIXAT 39 

SUPRA/MPP MICROPRINT 39 

SPECIAL SUPRA MICROSTUFFER (64K) 59 

SUPRA/MPP 1150 CALL 



MIDI HEADQUARTERS 

CZ's CALL 

Cables CALL 

Hybrid Arts Software CALL 

Other MIDI Software CALL 

MONITORS 

TEKNiKA MJ-22 RGB and Composite . 289 

NAP Green W/Audio 85 

NAP Amber W/Audio 90 

NAP Composite Color CALL 

NAP. RGB and Composite CALL 

SANYO Composite 189 

EPSON 

LX-86 (80 col) CALL 

FX-85 (80 COi) CALL 

FX-286 200 cps (135 col) CALL 

Tractors CALL 

ACCESSORIES 

ST -COVERS. Heavy Grade Vinyi 8 

ST -MOUSE MAT 10 

ST ■ 6' Printer Cable 19 

ST ■ Modem Cable (to Hayes, etc.) . , 17 

ST - Monitor Stand. Swivel & Tilt 15 

ST Clock Inlernai or Piug-in ea41 

Disk File for 3.5" disks (holds 401 9 

Flip N Fiie DATA CASE (holds 50) 5V. 8 

Disk File, with Lock (holds 100!) 5V. 13 

Power Strip. 6 outlet. (15 amp Surge) . . .15 
Deluxe Power Strip w/Spike & Surge 24 

Printer Stand. Heavy Duty. Sloping 13 

ATARI "Standard" Joystick 7 

Epyx 500XJ Joystick 15 

WICO Bat Handle Stick 17 

Compelition Pro 5000X Stick 18 

6' Atari Serial i/0 Cable 7 

Bookof Advenlure Games lor il 15 

Disk Nolcher 5 

CompuServe Starter Kit 24 

U.S. DOUBLER (Dbl. Density lor 1050) 49 

U . S . DOUBLER without SpaHa DOS 29 

"Duplicator" for 1050 Disk Drive 125 

PRINTER SUPPLIES 

MAILING LABELS. While. 500 pack 3 

per 1000 4 

Biu.Pnk.Gn.Vei. 800 pack (200 ea) 9 

per 500. any 1 color 5 

per 1000. any 1 coior 7 

Big Labels. 1-7/16x4". White, per 500 5 

PRINTER PAPER. Micro-Fine perfs. 20 lb. 

500 sheets. Pure White Bond 8 

1000 sheels. same as above 14 

PRINTSHOP "Rainbow" Color Paper Packs 

Pasteis (5 colors). 50 sheets of ea 12 

Matching Envelopes. 20 of each 6 

Brights (8 colors) . 50 sheets ol ea 29 

Matching Envelopes. 20 of each 10 

ALL 13 colors. 50 sheets of each 39 

Matching Envelopes. 20 of each 14 



SOFTWARE 
We can't list it all. . .call if you don't see it! 



8-BIT SOFTWARE 



ATARI 

Atariwriter Pius 35 

Proofreader 12 

Silent Butier 18 

Learning Phone 15 

Star Raiders il 13 

OTHERS CALL 

ACCESS 

Triple Pack 14 

Leader Board 26 

Tournament Disks 14 

ACCOLADE 

Hardball 20 

Fight Night 20 

BATTERIES INCLUDED 

Paperclip w/Speiipak 39 

Homepak 15 

B-GRAPH 27 

ARTWORKX 

Strip Poker 19 

S.P. Data Oiskj each , 13 

broderbund 

Championship Loderunner . .18 

Karaleka 18 

Loderunner , 23 

Print Shop 28 

Print Shop Companion .24 

Grapliics Library 1.2. or 3 . ea16 

DATASOFT 

Alternate Reality 27 

Never Ending Story 21 

ELECTRONIC ARTS 
Racing Destruction Set 12 

Super Bouiderdash 12 

Touchdown Football 12 

Ultima IV 43 

Many Other Titles CALL .12 

EPYX 

World Karate Championship .19 

INFOCOM 

Hilchhiker's Guide 23 

Leather Goddesses 22 

All Others CALL 

o.s.s. 

Action 46 

Basic XL 36 

MAC/65 46 

Tool Kits lor above ea19 

Basic XE 46 

SSI 

Mecli Brigade 38 

War Game Const. Set 19 

NAM 25 

USAAF 36 

Phantassie 25 

Wizard's Crown 26 

OTHERS CALL 



SUBLOGIC 

Flight Simulator II 37 

Scenery Disks ea15 

Western Scenery Set 74 

SYNAPSE 

SYNCALC 31 

SYNCALC TEMPLATES 13 

SYNFILE -I- 31 

XLENT 

Typesetter 22 

Rubber Stamp 20 

Page Designer 20 

Megalontii 16 

P.S. Interface 19 

Word Processor 20 



ST SOFTWARE 



ATARI 

1st Word Plus NEW 32 

Microsoft Write 59 

Battlezone 19 

Crystal Castles 19 

Joust 19 

Star Raiders 19 

ABACUS 

Text Pro 33 

Dalatrieve 33 

Power Plan 52 

PC Board Designer CALL 

ACCESS 

Leader Board 26 

Tournament Disks ea 14 

ACCOLADE 

Mean 18 33 

Hardball CALL 

ACTIVISION 

Hacker il 33 

Little Computer People 31 

Shanghai 29 

Tass Times 32 

ANTIC 

A-CALC PRIME 59 

CAD-30 36 

CAD-3D STEREO 65 

STEREQTEKS-DPkg 125 

Flash 29 

Expert Opinion 72 

Others CALL 

ARTWORX 

Strip Poker 26 

Bridge 4.0 20 

Peggammon 12 

BATTERIES INCLUDED 

B-Graph Elite CALL 

D.E.G.A.S. Elite 49 

Paperclip Elite CALL 

Thunder 26 

Time Link 32 

ELECTRONIC ARTS 
Arctic Fox 27 



Auto Duel 32 

Marble Madness CALL 

Sky Fox 29 

Chessmaster 2000 31 

Ultima ill 39 

Ultima IV 39 

EPYX 

Summer Games 26 

Winter Games 26 

Super Cycle 26 

Championship Wrestling 26 

World Games 26 

Rogue 26 

Trilogy 26 

INFOCOM 

All Titles CALL 

MICHTRON 

Cornerman 32 

DOS Shell 32 

M-Disk 26 

Mighty Mail 32 

Personal Money Manager 32 

Pinball Factory 25 

Utilities 39 

Time Bandits 26 

Trim Base 64 

Major Motion 26 

FIREBIRD 

Guild of Thieves 29 

Stargiider 29 

The Pawn 29 

REGENT 

Regent Base 67 

Regent Word il 67 

SIERRA-ONLINE 

STONEWRITE 39 

Donald Duck's Playground 19 

Ultima ii 39 

Kings Quest!, ilorlll ea33 

Space Quest 33 

TIMEWORKS 

Data Manager ST 52 

SwiltCalcST 52 

WordWriterST 52 

UNICORN 

Math Wizard 26 

Fraction Action 26 

Decimal Dungeon 26 

Read&Rhyme 26 

UNISON WORLD 

Print Master Pius 26 

ArtGaiieryl.il or III ea 19 

ST LANGUAGES 

M0DUU2 54 

MOD 2 Developer's Kit 99 

MARKWILLiAMSC 119 

LATTiCEC 109 

GST-ASM 45 

ASSEMPRO 39 

GFA Basic 52 



Prices Are Per Box/ Pack of 10 DISKEl 


FTES Prices Are Per Box/ Pacic of 1 




GENERIC 


SONY 


MAXELL 


BONUS 


WABASH 


3'/? 


SONY 


MAXELL 


VERBATIM 


5 'A" 


SS/DD 


DS/DD 


SS/DD 


DS/DD 


SS/DD 


DS/DD 


SS/DD 


SS/DD 


DS/DD 


SS/DD 


SS/DD 


2-5 


6.95 


7.95 


9.50 


11.95 


8.95 


10.95 


8.50 2-5 


15.00 


24.00 


15.00 


15.00 


6-10 


5.95 


6.95 


8.50 


10.95 


7.95 


9.95 


7.50 6-10 


14.00 


22.00 


14.00 


14.00 



Rainbow Colored Centech Disks (2 ea. of 10 colors per pkg) 17 



'Siivor" CentBcli Disks {20 Pack) 17 



TO ORDER, CALL TOLL FREE -1-800-S55-5835 



M-F 9am ■ 9pm • EST • SAT 10am ■ 4pm 
Ohio Residents, Order Status or Tecli, Info Cail (513) 294-6236 



TERMS AND CONDITIONS 

• NO EXTRA CHARGES FOR CREDIT CARDS! • We do not biil until we ship • Minimum order $20 • C.O.D. to continental U.S. oniy. add $3 • Ohio residents add 6% sales tax • Please allow 3 weeks lor 
personal or company checks to clear • Shipping/Handiing: (Cai! for Quote). Hardware, minimum $4; Software and most accessories, minimum $3 • Overnight shipment available at extra charge • We ship to 
Alaska Hawaii Puerto Rico (UPS Blue Label Only). APO. and FPO • Canadian orders, actual shipping plus 5%, minimum $5 • All defective products require a return authorization number to be accepted for 
repair or replacement • No free trials or credit • Returns subject to 15% re-stocking charge • Due to changing market conditions, cail tol! tree lor latest price and availability of product. FOR YOUR PROTEC- 
TION. WE CHECK ALL CREDIT CARD ORDERS FOR FRAUD. 
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Word Magic/ 
Graphic l\/lagic 



by Blue Collar Software 

THE CATALOG 

Antic Publishing 

524 Second Street 

San Francisco, CA 94107 

(800) 443-0100, ext. 133 

48K Disk, Atari 800 with printer 



$19.95 



by Randall Krippner 



Word Magic and Graphic Magic are a 

pair of programs that provide your 800 
with a word processor capable of insert- 
ing high-resolution graphics into a docu- 
ment. 

On seeing the low price of this pack- 
age, I was a bit skeptical as to how well 
it would perform. I was pleasantly sur- 
prised. Word Magic (WM) and Graphic 
Magic (GM) possess capabilities I would 
have expected only from programs cost- 
ing far more. 

Word Magic is installed by running a 
BASIC program from the WM disk. This 
allows you to set up the default charac- 
teristics of the word processor, printer 
driver and print formatting. You select 
screen colors, scrolling speed, and insert 
or overstrike mode. You must also select 
format defaults for justification, margins, 
page size, lines per inch; control codes for 
boldface and underlining for non-Epson 
printers, etc. Most of these defaults can 
be changed with control characters em- 
bedded in your text. 

Word Magic can be used with any 
printer, but graphics and special charac- 
ter fonts are available only with Epson- 
compatible printers. 

Once the installation is finished, you 
can run the program. WM offers all the 
usual functions of a word processor, and 
a few extras I hadn't expected. 

When you edit a document, WM places 
you in the standard 40x24 text mode. The 
bottom three lines of the display are re- 



served to show your status. The name of 
the file you're working on is displayed, 
and you're told whether you're in "Insert" 
or "Overstrike" mode, and how much 
RAM is left for your text. 

Cursor movement is controlled by the 
arrow keys or a joystick. I found the lat- 
ter addictive, because it let me quickly 
scan an entire document, or move the cur- 
sor more slowly by holding down the fire 
button. 

WM offers full text-formatting capabil- 
ities via control characters embedded in 
the text. You can set up left, right, top and 
bottom margins, overriding the default 
values. You can change page length, page 
width and spacing, as well as indentation 
and justification. You can vary type fonts 
(with an Epson-compatible printer) to 
switch between italics, expanded and en- 
hanced printing, and superscripts and 
subscripts are supported. WM also fea- 
tures headers and footers. It has just about 
every text-formatting option imaginable. 

WM's right justification works, but not 
well. The program right justifies text by 
inserting extra spaces between words, but 
the spaces aren't distributed through the 
line evenly. Instead, they're inserted be- 
tween the last few words on the line. This 
makes the text look rather peculiar when 
printed. 

The SELECT and OPTION keys are 
used to perform other editing functions. 
SELECT used with T, B, L and R allows 
you to quickly move to the top or bottom 
of a document, or to the left or right ends 
of a line. 



The OPTION key gives you access to 
WM's block move and search functions. 
There's the usual global search and re- 
place, plus a very powerful block function. 
You can define a block of text and copy 
it, move it — even save it to disk, 

WM supports chaining of documents 
during printing, and merging of files. 
Documents are chained together by using 
the CTRL-A function. Files so joined will 
be printed as if they were a single docu- 
ment. 

A manuscript saved on disk can be 
merged into your text file via the "In- 
clude" function. Just hold down OPTION 
and press I. WM will ask for the name of 
the disk file to include, will read that file 
from disk, and will insert it at the cursor 
position. 

Embedding graphics in text is done in 
a manner similar to using the "Append" 
function: Type a CTRL-G, followed by the 
name of the file containing the picture 
you wish printed in your document. The 
picture file must be processed by GM be- 
fore WM can use it. We'll talk more about 
this later. 

Before you print a document, it must 
be saved to disk. Select the "Print" option 
from the main menu. You'll be asked for 
the name of the file to print, then present- 
ed with a menu full of print format op- 
tions. At this point, you can change many 
of the default print format settings. WM 
even allows you to print multiple copies. 

However, printing with WM is one 
function that I didn't like. It's slow and the 
disk drive runs constantly through the 
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process. It can take several minutes to 
print out a long document, with the drive 
running all the while. That seems like an 
awful lot of wear to me, on both the drive 
and the disk. 

Using WM's "View" command is simi- 
lar to printing. The same prompts and op- 
tions are displayed, and the file is seen 
on-screen, a page at a time in graphics 
mode, with dots representing characters. 
This is especially helpful if you're includ- 
ing graphics in a document. Pictures are 
displayed as boxes, allowing you to see 
where the picture is going so you can 
make any adjustments. 

Graphic Magic is a good graphics util- 
ity in its own right. It permits you to load, 
view and print graphics created with 
several different programs, including Mi- 
croPainter, Microlllustrator, KoalaPad, B/ 
Graph and graphics 8 files. 

Once you have the artwork loaded, you 
can create a picture file for use with WM. 
Before this is actually created, you specify 
whether the picture is to fill V2 or 'A of 



a page and how many spaces you want 
it indented. You'll be asked if you want 
reverse polarity, too. (With some graph- 
ics programs, such as MicroPainter, a pic- 
ture can end up printing like a photo- 
graphic negative. This option lets you re- 
verse polarity so the picture will print 
normally.) 

The first time I made up a picture file 
for Word Magic, I thought something had 
gone wrong. It just kept going and going, 
with the disk drive churning away for a 
minute or more. When done, the picture 
file GM created was more than 400 sec- 
tors long! Fortunately, picture files don't 
need to be on the same disk as text files. 
If Word Magic doesn't find the specified 
file on the disk in the drive, it will ask you 
to insert the correct disk when needed. 

There are a few problems with Word 
Magic. One is that you get no printed 
documentation. Instructions are, instead, 
stored on the back side of the program 
disk. You get them by booting up the back 
side of the disk with BASIC. The docu- 



RAMROD XL/XE 



$79.95 



This uporade for Ihe XL and XE computers 
allows Ihe use or Ihreee different operattno 
systems. Comes with the 08NXL 08 that 
includes the FASTCHIP floallno point 
routines and Ihe OM Nl M ON XL/XE machine 
lanouaoe monitor. The OSNXL OS is 
compatible wilh the 400/600 OS, but has 
proorammable cassette baud rales, increased 
keyboard speed, and all the graphic modes. 
The OMNIMON XL is a resident monitor 
with all the debuoatna tools needed lor any 
application. Interrupt and examine any 
prooram (includino cartrldoes) easily, 
includes read/wrile to disk, binary load, 
directory, assembler, disassembler, slnale 
step execution, drive control, change 
registers, hex conversion/math, search, 
display, alter, move, relocate, verily memory. 
Hex or character formal and mor& 

RAMROD XL2 $39.95 

Same as above, but wilhoul 0& 

OSNXL $49.96 

operating System as described above. 

OMNI VIEW as low as $39.95 

Gel 80 columns for your computer. Available 
for 400, 800, eOOXL, 800XL, 66XE, 130XE. 
Also comes with an 80 column word procesor 
and terminal program. 




Check your local dealer 
or contact: 

Newell Industries 

602 East Hwy. 78 

214-442-6612 

Dealer inaulries Welcome 
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TENISIIS E>LA.YEFiS 

IMPROVE YOUR VOLLEY 

Your Atari computer and VOLLEY 
PARTNER can help you develop the 
reactions so vital Eor a good 
volley. 

VOLLEY PARTNER Is a learning tool 
not another computer game. Instead 
of playing with a joystick, you go 
through the volleying motion with 
your tennis racket, reacting to a 
random variety of shots hit toward 
you by the computer. Smooth 
realistic graphics simulate the 
oncoming ball appearing larger as 
It approaches you. By using VOLLEY 
PARTNER for just a few minutes a 
day, you can train yourself to 
volley Instinctively. 

Runs on any 8 bit Atari (not ST) 
with at least 48K of memory and 
disk drive. 

Send S19.95 (includes postage and 
handling) to: 

VOLLEY PARTNER 

PO BOX 5437 

CLEVELAND, TN . 37320 

CIRCLE #126 ON HEADER SERVICE CARD 



mentation can be seen on-screen or sent 
to a printer, one page at a time. It took me 
ten minutes at the keyboard, hitting the 
SPACE BAR after each page came out, to 
get my hard copy. There should have been 
an option to print it out all at once. 

The documentation consists of 17 pages 
of single-spaced text. All the features are 
mentioned, but with no examples. De- 
scriptions of the functions are brief and 
sometimes hard to understand. 

On-screen formatting of text sometimes 
looks strange with WM. Occasionally, 
when deleting or inserting text in the mid- 
dle of a document, I've ended up with a 
line containing only a single word. But af- 
ter I saved the document to disk and print- 
ed or reloaded it, I found the text ap- 
peared normal. 

All things considered. Word Magic and 
Graphic Magic make an excellent com- 
bination. At $19.95, this program is a bar- 
gain. I wouldn't hesitate to recommend it 
to someone looking for a full-featured, in- 
expensive word processor. 

Word Magic/Graphic Magic comes on 
a single, improtected disk. The spelling 
checker program Spell Magic is also avail- 
able from The Catalog for $19.95. A ver- 
sion for the Atari 130XE includes Word 
Magic, Graphic Magic and Spell Magic, 
for $29.95. fl 

RandaJ] Krippner has been involved 
with microcomputers since 1979. What 
started out as a hobby has turned into a 
part-time job, which includes training, 
programming and system analysis for 
small businesses. 



Can't find the 1050? 

PERCOM PRODUCTS 

Finished Drives: 

RFD40-S1 SS/DD $189 

RFD44-S1 DS/DD $239 

AT88-SPD SS/DD w/printer port. . .$199 

AT88-S1 SS/DD $139 

Come with 90-day warranty. 

Add-on Slave Drives: 

SS/DD Drive $109 

DS/DD Drive $179 

Dual Drives SS/DD $199 

Come with power supply, case and cable. 

Upgrade ROM: Corrects time problems in Percoms 
Ljsed with XL/XE series computers. Specify drive 
model when ordering— $20. Source Code listing: 
$30. Also 600XL 64K Upgrade: $30. 
Service & Parts: 

Atari, Percom, Epson, Citizen, Commodore, Zenith 

COMPUTER SERVICELAND 

1406-6 LEE RD., CHAt^TILLY. VA 22021 — (703) 631-4949 
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Streamliner 



Up the loading efficiency 

of your macliine language files. 



by James Hague 



Binary files. If there's one thing Atari owners have a lot 
of, it's definitely binary files. Whaddaya mean you don't 
have any? Sure you do! How about the flashy new machine 
language game you just dovraloaded from the local BBS? 
What about that slick utility written by the resident assem- 
bler whiz? See, how could you survive without 'em? 

Okay, so you do have a large supply of (legal, naturally) 
binary files. What you probably don't know is that a lot of 
these files are larger and klunkier than they ought to be, and 
take longer to load than they should. Have you ever won- 
dered why the loading of some files is accompanied by an 
uninterrupted stream of beep-beeps, while others seem to 
pause between each beep? This is not the fault of your disk 
drive, but rather of the binary files themselves — and, yes, 
it can be corrected. 

Streamliner is an all machine language utility which 
takes binary files and whips them into tip-top condition. 
The resulting "Streamlined" files are shorter and, more im- 
portantly, can load up to three times faster than they could 
before. Please note that Streamliner is not a file compres- 
sor, in the sense that compressed files must be uncompress- 
ed before they can be used. Streamliner's output is merely 
a more tightly packed version of a binary file, which can 
be loaded in the usual manner (DOS option L, etc.) 

Typing it in. 

Listing 1 is the BASIC data used to create the Stream- 
liner file on disk. Listing 2 is for people who are interested 
in assembly language programming. You do not have to type 
it in. 

Refer to the M/L Editor article on page 10 for complete 
typing instructions. 



The mechanics of Streamlining. 

Before learning how to use the program itself, let's see 
what kind of files will benefit most from being Streamlined. 
I'll try not to get too technical, but if you think I'm going 
too fast, just raise your hand — I'll slow down. 

There are three cases in which binary files contain un- 
necessary information that can be removed by Stream- 
liner: 

Case #1; binary files created by many popular assem- 
blers and compilers. The reason for this is that most lan- 
guage systems break a file up into many segments. A 
segment is part of a binary file that consists of a block 
of data and 4 bytes to tell where in memory that data 
is to be loaded. 

What most assemblers and compilers do is create a 
lot of little segments, instead of one big fat one. For ex- 
ample, an assembler might create a group of 100-byte 
segments, with the first one to be loaded at memory 
location 400, the second at 500, the third at 600, and 
so on. Doesn't it make sense that, since each segment 
loads into memory right after its predecessor, the whole 
file could be turned into one huge segment? And, since 
there's a 4-byte penalty for each segment in the file, 4 
bytes would be eliminated for each segment removed. 
More importantly, the file can be loaded substantially 
faster, since DOS doesn't have to stop and think between 
each segment. Easy, right? 

Some of the assemblers and compilers that break files 
up into a lot of short segments are: MAC/65 (which al- 
ways makes 251-byte segments), the Atari Macro As- 
sembler, Deep Blue C and the public domain Ace C. 
Smrprisingly, the Atari Assembler Editor doesn't divide 
files. 

Case #2: binary files that have been concatenated 
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(linked together). This most commonly occurs with 
AUTORUN.SYS files. 

Let's say you have three great machine language pro- 
grams which extend the capabilities of Atari BASIC 
(like the ones Angelo Giambra writes). Now, you can't 
have three AUTORUN files, so you clump them all to- 
gether using the DOS copy option with append (by add- 
ing /A). The files will be combined into one, but 2 extra 
bytes will be inserted for every file that is concatenat- 
ed to the first. Messy, messy. . . 

Well, that's why files contain extraneous information — 
which wastes space and adds precious seconds to your load- 
ing time. Case #1 is definitely the most conm:ion, and is by 
far the worst offender when it comes to creating inefficient 
binary files. Remember, you didn't have to create the file 
in order to Streamline it. 

Down to business. 
Now that you know all about why some binary files are 
not as nice and neat as they could be, let's just sit back and 
relax while Streamliner does all the work. 

Upon loading Streamliner (which has already been 
Streamlined, by the way) you'll be presented with a screen 
consisting of two windows. The top one, the larger of the 
two, is the information window. It contains all sorts of neat 
little statistics about what is happening to a particular file. 
Underneath that is the interaction window, which is, not 
surprisingly, where you interact with Streamliner. 

Streamliner is very user friendly; it's probably the easiest- 
to-use utihty ever created. Just insert the disk containing 
the binary file you wish to clean up into drive 1, then type 
its name at the Enter filename prompt. That's all there is 
to it. Actually, this difficult task is made even easier by the 
fact that Streamliner will only let you type in a legal file- 
name. It would have been a whole lot simpler for me to have 
left out the error checking involved here, but Atari owners 
deserve only the best, right? 

It doesn't matter if the file is locked, because this will 
be detected and the file will be unlocked . When Stream- 
liner is finished doing its thing, the file will be relocked 
for you. This prevents you from having to unlock all of your 
existing files before being able to Streamline them. Nice. 
While the disk drive is busily whirring away, the infor- 
mation window will be constantly displaying information 
about what's happening. Counts of both bytes read and bytes 
written are maintained on-screen. Also, the number of ex- 
tra segments and extra bytes foimd in a file are shown, to 
enable you to see how much or how little the file has been 
improved. Look at it as a cheap form of entertainment — it 
does cost less than going to the movies. 

If a file doesn't need to be Streamlined (i.e. , contains no 
extra bytes or segments), then the message No need to re- 
write. Press a key will appear. There's no reason for a heart 
attack; the file will remain on disk imaltered. 

The only limitation of Streamliner is that the size of the 
file you can work with depends on how much memory you 
have available. This is because the entire file is stored in 
RAM, so it can overwrite the original. With 48K, I doubt 
that this should be much of a problem. The worst thing that 
could happen: you'll receive a File too large message. 



Disclaimer and datclaimer. 

A good portion of the binary files you'll rim across, in- 
cluding the majority of those published in ANALOG Com- 
puting won't need StreamUning. On the other hand, a good 
portion will need it — some more than others. Just don't ex- 
pect to be able to make every program in your library take 
up two sectors of disk space and load in imder three 
seconds. 

Practically every Atari owner can benefit from using 
Streamliner. Non-BASIC programmers will probably find 
it indispensible, as it can remove large amoimts of garbage 
from their completed files. SYSOPs can Streamline any bi- 
nary files available for downloading, to keep things mov- 
ing along. And almost anyone would like to have his or her 
favorite public domain game load in half the time. So start 
typi ng, a 

James Hague attends North Texas State University and 
is a member of the Dallas Atari Computer Enthusiasts. He 
has been programming an Atari 800 in both BASIC and as- 
sembly language since 1982. 

Listing 1. 
M/L Editor data. 

leee data 255,255,160,34,8,42,112,112, 

112,112,112,112,71,9,33,112,2267 

leie DATA 6,112,2,2,2,2,2,2,2,2,112,2, 

2,2,2,65,3724 

1028 DATA 160,34,216,32,289,34,32,145, 

36,32,37,37,32,25,39,48,8271 

1030 DATA 245,32,188,40,76,192,34,32,1 

01,228,169,3,141,15,45,169,4595 

1040 DATA 112,133,16,141,14,210,162,1, 

142,68,2,202,142,1,210,142,6188 

1050 DATA 8,210,141,47,2,138,157,0,33, 

157,208,33,232,224,208,208,1177 

1060 DATA 245,162,31,189,103,35,157,0, 

33,189,135,35,157,32,33,189,4402 

1070 DATA 167,35,157,32,34,202,16,235, 

162,21,189,199,35,157,131,33,6561 

1080 DATA 189,221,35,157,163,33,189,24 

3,35,157,195,33,189,9,36,157,6785 

1090 DATA 227,33,202,16,229,162,4,189, 

31,36,157,196,2,202,16,247,7474 

1100 DATA 169,160,141,48,2,169,34,141, 

49,2,169,33,141,47,2,162,2423 

1110 DATA 32,169,3,157,66,3,169,36,157 

,68,3,169,36,157,69,3,1839 

1120 DATA 169,4,157,74,3,169,0,157,75, 

3,76,86,228,51,52,50,2180 

1130 DATA 37,33,45,44,41,46,37,50,0,54 

,17,14,16,192,226,249,3849 

1140 DATA 192,234,225,237,229,243,192, 

232, 225, 231, 245, 229, 192, 128, 128, 128, 72 

68 

1150 DATA 128,128,128,128,169,174,166, 

175,178,173,161,180,169,175,174,128,34 

49 

1168 DATA 183,169,174,164,175,183,128, 

128,128,128,128,128,128,128,128,128,95 

52 

1178 DATA 128,128,128,128,169,174,188, 

165,178,161,163,180,169,175,174,128,33 

89 

1180 DATA 183,169,174,164,175,183,128, 

128,128,128,128,128,128,34,121,116,795 

9 

1190 DATA 101,115,0,50,101,97,100,63,6 

3,63,63,63,63,63,63,63,312 

1200 DATA 63,0,8,34,121,116,181,115,8, 
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55,114,165,116,116,181,118,3798 

1218 DATA 63,63,63,63,63,63,63,8,8,37, 

120,116,114,97,8,34,9448 

1228 DATA 121,116,181,115,63,63,63,63, 

63,63,63,63,63,63,63,37,9858 

1238 DATA 128,116,114,97,8,51,181,183, 

109, 181, lie, 116, 115, 63, 63, 63, 3872 

1248 DATA 63,63,63,63,63,78,18,148,3,2 

4,75,58,155,72,56,186,1286 

1258 DATA 74,74,74,153,64,33,288,184,4 

1,15,9,16,153,64,33,288,2446 

1268 DATA 96,162,2,168,87,181,156,32,3 

9,36,282,16,248,96,162,2,5358 

1278 DATA 168,119,181,159,32,39,36,282 

,16,248,96,168,153,165,163,32,7965 

1288 DATA 39,36,165,162,76,39,36,168,1 

85,165,165,32,39,36,165,164,6384 

1298 DATA 76,39,36,169,64,141,198,2,16 

2,32,169,7,157,66,3,169,4175 

1308 DATA 8,157,72,3,157,73,3,141,182, 

2,76,86,228,162,16,169,5916 

1318 DATA 12,157,66,3,76,86,228,169,9, 

133, 178, 169, 42, 133, 171, 169, 8676 

1328 DATA 8,133,155,162,2,149,156,149, 

159,282,16,249,162,1,149,162,9449 

1330 DATA 149,164,202,16,249,162,25,18 

9,198,36,157,99,33,202,16,247,8887 

1348 DATA 32,59,36,32,72,36,32,85,36,7 

6,97,36,38,105,108,101,989 

1350 DATA 63,63,63,63,63,63,63,63,63,6 

3,63,63,63,63,63,63,9918 

1368 DATA 63,63,46,47,46,37,134,168,13 

2,169,168,8,177,168,201,155,9395 

1378 DATA 248,6,153,96,34,288,288,244, 

169,8,192,32,176,6,153,96,7463 

1388 DATA 34,288,208,246,96,138,72,32, 

14,39,162,175,169,28,141,8,4488 

1398 DATA 218,142,1,218,169,8,133,28,1 

65,28,281,2,144,258,282,224,569 

1488 DATA 168,176,238,184,178,32,224,3 

6,76,244,37,162,228,168,37,32,7686 

1418 DATA 224,36,162,2,134,144,189,225 

,37,149,128,56,233,32,157,112,8384 

1428 DATA 34,282,16,242,32,244,37,232, 

134, 154, 166, 144, 232, 169, 63, 157, 1752 

1438 DATA 112,34,32,189,36,166,144,224 

,2,248,77,281,155,288,17,181,9873 

1440 DATA 128,201,46,208,3,198,144,282 

,232,169,155,149,128,76,288,37,358 

1458 DATA 281,126,288,16,165,154,248,2 

,198,154,169,8,232,157,112,34,8655 

1468 DATA 198,144,288,198,164,154,192, 

4,248,192,281,46,288,18,164,154,1285 

1478 DATA 288,184,238,154,232,134,144, 

149,128,169,14,157,112,34,208,170,168 

1488 DATA 281,48,144,12,281,58,144,11, 

281,91,176,4,281,65,176,3,5628 

1498 DATA 76,68,37,164,154,288,4,224,1 

8,248,245,232,134,144,149,128,2317 

1588 DATA 56,233,32,157,112,34,165,154 

,248,238,238,154,288,226,169,14,3362 

1510 DATA 56,229,144,168,162,8,181,128 

, 56, 233, 32, 153, 118, 33, 228, 144, 8867 

1528 DATA 248,4,232,208,288,248,96,68, 

49,58,8,37,118,116,101,114,4818 

1530 DATA 0,102,185,108,101,118,97,189 

,101,155,169,255,141,252,2,96,9502 

1548 DATA 169,128,157,68,3,169,8,157,6 

9,3,96,248,24,101,162,133,5960 

1550 DATA 162,169,0,101,163,133,163,21 

6,32,85,36,96,166,106,228,171,9420 

1560 DATA 208,13,162,61,168,38,32,255, 

36,32,109,36,164,255,96,160,7793 

1578 DATA 8,145,170,165,170,24,185,1,1 

33,178,165,171,185,0,133,171,7627 

1580 DATA 160,0,96,0,0,38,185,108,181, 

8,116,111,111,8,188,97,1987 

1598 DATA 114,183,101,14,8,48,114,181, 



115,115,8,97,8,107,181,121,2461 

1688 DATA 14,155,152,72,72,162,39,189, 

96,34,149,172,202,16,248,162,9854 

1618 DATA 172,168,38,32,255,36,169,17, 

141,187,34,184,56,233,108,162,7197 

1628 DATA 8,281,18,144,6,56,233,18,232 

,288,246,9,16,141,189,34,6848 

1638 DATA 138,9,16,141,108,34,32,189,3 

6,281,82,288,14,184,162,39,4662 

1648 DATA 181,172,157,96,34,202,16,248 

,168,8,96,281,65,288,231,104,292 

1658 DATA 168,96,8,41,15,47,8,37,114,1 

14,111,114,8,8,8,8,7582 

1668 DATA 14,0,58,101,116,114,121,8,11 

1,114,8,33,98,111,114,116,3268 

1678 DATA 31,155,162,16,169,7,157,66,3 

,169,8,157,72,3,157,73,3177 

1680 DATA 3,32,86,228,48,29,72,248,165 

,156,24,185,1,133,156,165,7243 

1698 DATA 157,185,8,133,157,165,158,18 

5, 8, 133, 158, 216, 32, 59, 36, 104, 5416 

1788 DATA 160,8,96,165,145,240,7,192,1 

36,208,3,152,168,96,32,92,7199 

1718 DATA 38,248,191,96,162,39,169,8,1 

57,96,34,202,16,258,96,32,6243 

1728 DATA 14,39,32,135,36,162,16,169,3 

,157,66,3,32,250,37,169,4598 

1738 DATA 4,157,74,3,169,8,157,75,3,13 

3,158,133,151,133,145,32,5941 

1748 DATA 86,228,16,28,162,98,168,48,3 

2,255,36,32,189,36,281,82,5114 

1758 DATA 248,285,281,65,288,245,248,8 

,32,204,38,16,6,32,135,36,3582 

1768 DATA 168,255,96,133,166,32,284,38 

,48,243,281,255,208,6,165,166,2856 

1778 DATA 281,255,248,13,162,131,168,4 

0,32,255,36,32,189,36,76,87,4360 

1780 DATA 39,32,22,38,48,215,169,255,3 

2,22,38,48,288,162,164,168,8348 

1798 DATA 48,32,224,36,238,145,32,284, 

38,16,18,192,136,288,198,32,7544 

1888 DATA 135,36,168,8,96,198,145,133, 

146,133,166,32,284,38,48,173,7768 

1818 DATA 133,147,133,167,201,255,288, 

14,165,166,201,255,288,8,169,2,1286 

1828 DATA 32,5,38,76,142,39,32,284,38, 

48,146,133,148,32,284,38,5144 

1838 DATA 48,139,133,149,165,166,56,23 

3,1,133,166,165,167,233,8,133,9934 

1848 DATA 167,197,151,288,43,165,166,1 

97,150,208,37,168,8,165,148,145,236 

1850 DATA 152,280,165,149,145,152,169, 

4,32,5,38,248,165,164,24,185,6558 

1868 DATA 1,133,164,165,165,185,8,133, 

{l^'HU^^'^^'^^'^^'*^'*^' 3866 
1878 DATA 165,146,32,22,38,16,3,76,87, 
39,165,147,32,22,38,48,248 '' 

1888 DATA 246,165,178,133,152,165,171, 
133,153,165,148,32,22 38,48, 23i;7782 
f2l^?$^?^i^fii'*?'"'". 38, 48, 224,165, 
f f f i^^^ii^^' ^®^' ^*^' ^33, 151, 32, 8771 
k^^t^^^l^ 204,38,48,211,32,22,38,48,28 
6,165,147,197,149,144,9,165,8323 
Hi®. ?6T« 146, 197, 148, 144, 3, 76, 142, 39, 
f Sf i^i5t^*J i^S' ^' ^33, 146, 165, 6421 
i^i? ??!« 147,105,8,133,147,76,57,48,3 
?A2^ii2'^'^^^'®'^^^' 112' 2263 
1938 DATA 181,118,0,182,105,188,181,14 
{lii^AiSi'H^'"*'"^'® "i 2606 ' 
^I^Sk"*?!? llf'M^^^'^^^'"*'^^6'31,l 

^?ol ?ST'',"5,il8'97,114,121,e,102,105 

ji?f'i2il^*'®'®'*«'A^*'101'1315 

i^??i='*2^2 115,115,8,97,8,107,101,121,1 

4,155,0,0,0,0,0,8,6686 

i^^^-RS^^ 0*0*58,101,97,100,185,118,10 

3,0,102,105,108,101,14,14,1785 

1980 DATA 14,155,169,0,133,155,32,135, 
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36,165,162,268,15,165,163,268,240 

1990 DATA 11,162,182,160,41,32,255,36, 

32,109,36,96,32,14,39,162,2696 

2000 DATA 16,169,3,157,66,3,32,250,37, 

169,8,157,74,3,169,0,3097 

2010 DATA 157,75,3,32,86,228,16,47,192 

,167,240,6,32,92,38,240,6964 

2020 DATA 219,96,230,155,162,16,169,36 

,157,66,3,32,250,37,169,0,4911 

2030 DATA 157,74,3,157,75,3,32,86,228, 

48,6,32,135,36,76,214,4082 

2040 DATA 40,32,92,38,240,222,96,162,2 

15,160,41,32,224,36,169,9,7537 

2050 DATA 133,146,169,42,133,147,162,1 

6,169,11,157,66,3,32,250,37,4938 

2060 DATA 169,0,157,72,3,157,73,3,160, 

0,177,146,32,86,228,16,4915 

2070 DATA 8,32,92,38,240,224,76,135,36 

,248,165,159,24,105,1,133,7178 

2080 DATA 159,165,160,105,0,133,160,16 

5,161,105,0,133,161,216,32,72,7551 

2090 DATA 36,165,146,24,105,1,133,146, 

165,147,105,0,133,147,197,171,9208 

2100 DATA 208,180,165,146,197,170,208, 

174,32,135,36,165,155,240,29,162,1016 

2110 DATA 16,169,35,157,66,3,32,250,37 

,169,0,157,74,3,157,75,4235 

2120 DATA 3,32,86,228,16,6,32,92,38,24 

0,228,96,32,135,36,162,6273 

2130 DATA 239,160,41,32,224,36,32,244, 

37,76,109,36,46,111,0,110,3088 

2140 DATA 101,101,100,0,116,111,0,114, 

101,119,114,105,116,101,14,0,2646 

2150 DATA 48,114,101,115,115,0,97,0,10 

7,101,121,14,155,0,8,0,9930 

2160 DATA 0,0,0,0,0,55,114,105,116,105 

,110,103,0,102,105,108,3399 

2170 DATA 101,14,14,14,155,0,0,6,0,0,0 

,0,36,111,110,101,8460 

2180 DATA 14,0,48,114,101,115,115,0,97 

,0,107,101,121,14,155,226,5766 

2190 DATA 2,227,2,188,34,0,0,0,0,0,0,0 

,0,0,0,0,3574 



Listing 2. 
Assembly listing. 

.OPT OBJ, NO LIST 

STREAMLINER 

Atari 8-bit Uer 1.00 06-28-86 
Copyright 1986 Analog Conputing 
PrograHMed by Janes Hague 

SYSTEM EQUATES 



POKMSK 


- 


$10 


RTCLOK 


— 


$14 


RAMTOP 


— 


$6A 


SDMCTL 


— 


$022F 


COLDST 


— 


$0244 


SDLSTL 


— 


$0230 


SHFLDK 


— 


$02BE 


INVFLG 


— 


$02B6 


CH 


— 


$02FC 


SKCTL 


— 


$2D0F 


AUDFl 


r 


$D200 


AUDCl 


— 


$D201 


AUDCTL 


~ 


$D2e8 


COLORO 


— 


$02C4 


COLORl 


— 


$02C5 


C0L0R2 


— 


$02C6 


C0L0R3 


— 


$02C7 


COLBAK 


~ 


$02C8 


ICCOM 


— 


$0342 


ICBAL 


= 


$0344 



ICBAH 


= 


$0345 


ICBLL 


— 


$0348 


ICBLH 


~ 


$0349 


ICAXl 


— 


$034A 


ICAK2 


— 


$034B 


IRQEN 


— 


$D20E 


< lOINU 


— 


$E465 


CIOU 


— 


$E456 


S CONSTANTS 
. 




EOL 


= 


$9B 


; UARIBALES 




1 


»= 


$80 


FNAME 


.DS 


16 


FNAMEL 


.DS 


1 


FINDEOF 


.DS 


1 


START 


.DS 


2 


END 


.DS 


2 


LSEGEND 


.DS 


2 


LENDPTR 


.DS 


2 


PERIOD 


.DS 


1 


LOCKED 


.DS 


1 


BYTE5R 


.DS 


3 


BYTESW 


.DS 


3 


EXTRAB 


.DS 


2 


EXTRAS 


.DS 


2 


TEMP 


.DS 


2 


PNT 


.DS 


2 


BPNT 


.DS 


2 


TSAUE 


.DS 


2 



«r 



$2100 



; RESERUED MEMORY 



DISP 



■DS 416 



;EDL CCR) Char 



;FiIeNAME 
;FileNAME Length 
;Check EOF flag 
;seg START addr 
;seg END addr 
;Last SEG END 
;Last END PnTR 
;■'.'■ typed flag 
;file LOCKED fig 
;bcd BYTES Read 
;bcd BYTES Nritn 
;bcd EXTRA bytes 
;bcd EXTRA segts 
;Mork area 
;Misc. PoiNTer 
jBuffer PoiNTer . 
;Text SAVE area 



; Display Menory 



DISPLAY LIST 



I 
DL 



.BYTE 112,112,112 

.BYTE 112,112,112 

.BYTE 71 

.MORD DISP 

.BYTE 112 

.BYTE 6 

.BYTE 112 

.BYTE 2,2,2,2,2,2,2,2 

.BYTE 112 

.BYTE 2,2,2,2 





'.MORD DL 




; MAIN 


BODY 




MAIN 


CLD 






JSR 


SETUP 


LOOP 


JSR 


INIT 




JSR 


GETNAME 




JSR 


READ 




BMI 


LOOP 




JSR 


MRITE 




J MP 


LOOP 


; ONE- 


SHOT SET-UP 


SETUP 








JSR 


SIOINU 




LDA 


tt3 




STA 


SKCTL 




LDA 


ttll2 




STA 


POKMSK 




STA 


IRQEN 




LDX 


ttl 




STX 


COLDST 



;Kill decinal! 
J Go set-up! 
;Get ready, 
;get nane, 
;read file, 
;and write it 
;if no errors! 



;lnitialize 

; sound hardware 

;Disable break 
;key. . . 

; Reboot upon 
;hitting reset 
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DEK 

STX AUDCl 
STX AUDCTL 
STft SDMCTL 



;Clear sound 
{Channels 
;Turn off DHA 



I 
CLS 



PNLAB 



PLAB 



SETCLR 



TXA ;Clear display 
STA DISP^X J Memory C416 
STA DiSP+2e8,x ; bytes} in 2 
INK ;groups of 288 
CPX tt2e8 ; bytes each. . . 
BNE CLS 

LDX «31 ;Print title 

LDA TITLE, X ; lines. . . 

STA DISP,X 

LDA MLAB1,X ;Window 1 label, 

STA DISP+32,X 

LDA NLAB2,X ;and Window 2 

STA DISP+288,X ; label... 

DEX 

BPL PNLAB 

LDX ttZl ;Print Main 

LDA LAB2,X ;Print Main 

STA DISP+131,X ; labels in 

LDA LAB3,X ; information 

STA DISP+163,X ;windOW... 

LDA LAB4,X 

STA DISP+195,X 

LDA LAB5,X 

STA DISP+227,X 

DEX 

BPL PLAB 

LDX tt4 ;lnit color 

LDA COLORS, X ;regs. . . 

STA COLORO,X 

DEX 

BPL SETCLR 



;Point to new 
;display list. . . 



LDA n <DL 

STA SDLSTL 

LDA U >DL 

STA SDLSTL+1 

LDA tt33 ;and enale DMA 

STA SDMCTL ; f or narrow pf 

open keyboard for input on 
channel 2 

LDX tt$2e ; Channel 2 

LDA nz ;set coMMand to 

STA ICCOM,X ;"open" 

LDA tt <KEyBD ;Point to 

STA ICBAL,X ; keyboard 

LDA tt >KEYBD ;filespec... 

STA ICBAH,X 

LDA tt4 ; Specify input 

STA ICAX1,X 

LDA »8 ;AUX2 is unused 

STA ICAX2,X 

JMP CIOU ;Call cio! 

■ 

jtitle & window labels 

■ 

TITLE .SBVTE "STREAMLINER Ul . 8" 

.SBYTE +192," BY JAMES HAG" 
.SBYTE +192, "UE " 

WLABl .SBYTE +128," INFO" 

.SBYTE +128,"RMATI0N HINDO" 
.SBYTE +128, "M " 

NLAB2 .SBYTE +128," IHTE" 

.SBYTE +128,"RACTI0N NINDO" 
.SBYTE +128, "M " 

Status labels 



.SBYTE " " 

LAB3 .SBYTE "Bytes Hritten 

.SBYTE " " 

LAB4 .SBYTE "Extra Bytes 

.SBYTE " " 

LABS .SBYTE "Extra SegMents 

.SBYTE " " 

initial colors 
COLORS .BYTE $46, $eA,$94, $e3,$18 

keyboard filespec 
JCEYBD .BYTE "K:",EOL 
SHOM 2 BCD DIGITS 



;Save bed 

; Convert 1st 

;digit to 

;a character. . . 

Y ;and show it 
;Next position 
jGet bed back 
;Keep lower half 
;Convert it and 

Y ;show it! 
jNext space 



LDX tt2 ;3 bytes total 

LDY tt87 ;Set position 
LDA BYTESR,X ;Get bed byte 

JSR BCD ;and Show it! 

DEX ;Do next digit 
BPL SBR 
RTS 



in: a 


- bed 


byte 


y 


- Offset froM 


n% 


info window 




PHA 






SEC 






ROR 


A 




LSR 


A 




LSR 


A 




LSR 


A 




STA 


DISP+64, 




INY 






PLA 






AND 


tt$eF 




ORA 


n$X0 




STA 


DISP+64, 




INY 






RTS 




SHON 


BYTES 


READ 



SHOBR 



SBR 



SHOM BYTES MRITTEN 



SHOBH 
SBM 



LDX tt2 ;3 bytes total 

LDY ttll9 ;Set position 
LDA ByTESN,X ;Get bed byte 

JSR BCD ;and show it! 

DEX ;Get next digit 
BPL SBH 
RTS 



SHON EXTRA BYTES 



SHOEB 



LDY ttl53 ;set cursor 
LDA EXTRAB+1 ; Get 1st byte 
JSR BCD ;and show it! 
LDA EXTRAB ;Get next one 
JMP BCD ;and show it! 



SHON EXTRA SEGMENTS 



LAB2 



.SBYTE "Bytes Read- 



SHOES LDY ttl85 ; Position cursor 
LDA EXTRAS+1 ;Get 1st byte 
JSR BCD ;and show it 
LDA EXTRAS ; Get 2nd byte 
JMP BCD ;and display! 

GET KEYPRESS 
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GETKEY 








LDA 


tt64 




STft 


SHFLOK 




LDX 


»$28 




LDA 


n$07 




STA 


ICCOM,X 




LDA 


ne 




STA 


ICBLL,K 




5TA 


ICBLH,X 




STA 


INUFLG 




JMP 


CIOU 


; CLOSE 


XOCB 


ttl 


CLOSEl 








LDX 


tt$ie 




LDA 


tt$ec 




STA 


ICCOM,X 




JMP 


CIOU 


; INITIALIZAION 



IHIT 



;Clear shift & 
;control kei^s 
;Use IOCS m 
;5et to "get 
; character" Mode 

;Buffer length 
;to zero 

jlnverse key off 
;Get a keypress! 



;Set lOCB to 1 
; "close" coMMand 

;Close it up! 



LDA tt <BUFFER ; Point to 
STA BPHT ;start of buffer 
LDA tt >BUFFER 
STA BPNT+1 



LDA tte 



;Clear file 



CLRB 



CLRE 



PRTNOHE 



STA LOCKED ; locked flag 

LDX tt2 

STA BYTESR,X ;Clear read & 

STA BVTESM,X ;write counters 

DEX 

BPL CLRB 

LDX ttl ;Clear extra 

STA EXTRAB,X ; counters... 

STA EXTRAS, X 

DEX 

BPL CLRE 

LDX tt25 ;Print file 
LDA FLAB,X ; label in 
STA DISP+99,X ;inforMation 
DEX ;window. . . 
BPL PRTNONE 

;Show all other 
{Status info. . . 



JSR SHOBR 
JSR SHOBH 
JSR SHOEB 
JMP SHOES 



FLAB 



.SBYTE "File 

.SBYTE " HOME' 



PRIHT MESSAGE 



in; X 
y 

PRINT 



DOCHAR 



PADIT 
DDPAD 



PREXIT 



text 10 byte 
text hi byte 



STX PUT ;Sawe text 

STY PNT-i^l ; address 

LDY tte ; Print text 

LDA CPNT},Y until an 

CMP ttEOL ;EOL is reached 

BEQ PADIT 

STA DISP+352,Y 

INY 

BNE DOCHAR 

LDA tte ;N0W pad the 

CPY tt32 ;rest of the 

BCS PREXIT ;line with 

STA DISP+352,Y ;blanks... 

INY 

BNE DOPAD 

RTS 



; ERROR 


5ET-U 


IP 




Jin; X - 


error Message lo byte 


; y - 


error Message hi byte 


ERRSET 










TXA 




;Save lo byte. . . 




PHA 








JSR 


CLRLINE 


;Clear line 


;Make a 


"ding" sound 






LDX 


tt^AF 


jinitial voluMe 




LDA 


UZ& 


;Set channel l 




STA 


AUDFl 


; frequency 


LOMER 


STX 


AUDCl 


;and control 




LDA 


tte 


;Hait for a few 




STA 


RTCLOK 


; ji f f ies. . ■ 


DELAY 


LDA 


RTCLOK 






CMP 


tt2 






BCC 


DELAY 






DEX 




;and loop until 




CPX 


tt$A8 


;the voluMe is 




BCS 


LOMER 


;zero 


; 


PLA 




;Get lo byte 




TAX 




;back & print 




JSR 


PRINT 


; error Message 




JMP 


CLRKBD 


; Clear keyboard 


; GET FILENAME 




GETNAME 










LDX 


tt <MSGei ; Print "Enter 




LDY 


tt >MSGei ;filenaMe" 




JSR 


PRINT 


;proMpt 




LDX 


m 


;Set filenaHe 




STX 


FNAMEL 


; length 


PRTDl 


LDA 


D1,X 


;Load "Dl;" 




STA 


FNAME,X 


jinto FNAME 




SEC 




iConuert char 




SBC 


tt3:2 


;to internal 




STA 


DISP+368,X ;and Show it 




DEX 








BPL 


PRTDl 






JSR 


CLRKBD 


;Clear keyboard 




INX 




;Clear period 




STX 


PERIOD 


;flag 


;read fi 


lenaMe froM keyboard 


HEXTKEY 


LDX 


FNAMEL 


;Print cursor 




INX 




;in correct 




LDA 


tt63 


{position. . . 




STA 


DISP+368,X 




JSR 


GETKEY 


;Get a keypress 




LDX 


FNAMEL 


;First char past 




CPX 


tt2 


;"Dl;"? 




BEQ 


FIRSTC 


;Yes, skip this 


J 


CMP 


ttEOL 


JEOL? 




BNE 


NOTEOL 


;No, its not 




LDA 


FNAME,X 


;Yup! Make sure 




CMP 


tf . 


;that the last 




BNE 


ACCEPT 


;char is not a 




DEC 


FNAMEL 


; period 




DEX 






ACCEPT 


INX 




;Tack an EOL to 




LDA 


ttEOL 


;the end of the 




STA 


FNAME,X 


; fi lenaMe 




JMP 


PFN 


;"," then leave! 


NOTEOL 


CMP 


ttl26 


;Backspace? 




BNE 


NOBAK 


;No way Jose! 




LDA 


PERIOD 


;Period fig set? 




BEQ 


NODOT 


;Nope, ignore it 




DEC 


PERIOD 


;Yup, dec it! 


NDDOT 


LDA 


tte 


;Print a space 
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INK ;on the screen 
STft DISP+368,X ;and shorten 
DEC FNAMEL ;the nane length 
BNE NEXTKEY ;Get next char! 



NOBAK LDV PERIOD 


;ls extension 


CPy tt4 


;all done? 


BEQ NEXTKEY 


;Yes, ignore! 


CMP «■. 


;ls key a ".'■? 


BNE NOPER 


;no, its not 


LDV PERIOD 


;Accept only if 


BNE NEXTKEY 


;it is the 1st! 


INC PERIOD 


;Set per flag 


INX 


;Add 1 to naHe 


STX FNAMEL 


; length 


5TA FNANEjX 


;save "." 


LDA ttl4 


;and show 


STA DISP+368 


,X ; onscreen 


BNE NEXTKEY 


;Get next key! 


NOPER CMP tt'e 


;ls key a digit? 


BCC NEXT 


;Yes, its legal 


CMP »■ ! 


;since its not 


BCC GOODKEY 


;the 1st char! 


FIR5TC CMP tt' C 


;ls it a letter? 


BCS NEXT 


;Yep, then its 


CMP tt* A 


; always good! 


BCS GOODKEY 




NEXT JMP NEXTKEY 

• 




GOODKEY LDY PERIOD 


;Period set? 


BNE KEYOK 


;No, its OK! 


CPX ttl8 


;Any rooM? 


BEQ NEXT 


;Nope, all full 


KEYOK INX 


;Add 1 to nane 


STX FNAMEL 


; length 


STA FNAME,X 


■and save char 


SEC , 


Convert to 


SBC tt32 , 


internal and 


STA DISP+368j 


X ;show it! 


LDA PERIOD J 


Past a period? 


BEQ NEXT J 


No, just leave! 


INC PERIOD , 


Yes, inc flag 


BNE NEXT , 


and leave! 



now print the filenane in its 
correct spot in the info window 



;Calculate where 
;to start 
;printing it 



PFN 


LDA 
SEC 


Itl4 




SBC 


FNAMEL 




TAY 






LDX 


tta 


PRNAME 


LDA 
SEC 


FNAME,X 




SBC 


nz2 




STA 


DISP+lie 




CPX 


FNAMEL 




BEQ 


PRINTED 




INX 






INY 






BNE 


PRNAME 


PRINTED 


RTS 





;Now print it! 
;Get a char 
; convert to 
; internal coding 
i,Y ;and print it 
;A11 done? 
fYep, go hone! 
;Else, do 
; another for 
; Mother! 
; Bye y ■ a 1 1 ! 



;initial filenane 

Dl .BYTE "Dl:" 
;filenaMe proMpt 



MSGOl 



.SBYTE " Enter filenane" 
.BYTE EOL 



CLEAR KEYBOARD 



CLRKBD 



LDA »$FF 
STA CH 



RTS 
SET FILENAME FOR CIO 



in: X - lOCB tt 

SETFILE 

LDA tt <FNAME 
STA ICBAL,X 
LDA tt >FNAME 
STA ICBAH,X 
RTS 

INC EXTRA BYTE COUNTER 



in; a - bed nuMber to add 



ADDEB 



SED 

CLC 

ADC EXTRAB 

STA EXTRAB 

LDA tte 

ADC EXTRAB+1 

STA EXTRAB+1 

CLD ;DeciMal off! 

JSR 5H0EB 

RTS 



;DeciMal node! 
;Add ace. to 
; extra byte 
;counter. . . 



;Print new value 



PUT BYTE IN BUFFER 



in: a - byte to put in buffer 
out: y - $FF for error 
e for success 



PUTBUF 



in 



NOTFULL 



LDX RAMTOP ;Any space 

CPX BPNT+1 ;buffer? 

BNE NOTFULL ;Yes, put byte 

LDX tt <BFMSG ;No, prepare 

LDY tt >BFMSG ; f or an error 

JSR ERRSET 

JSR GETKEY ;Mait for a key 

LDY SFF {Return error 

RTS ;code and leave! 

LDY tt8 ;Put byte into 
STA CBPNT),Y ;raM buffer 



LDA BPNT 
CLC 

ADC ttl 
STA BPNT 
LDA BPNT+1 
ADC tte 
STA BPNT+1 
LDY tte 
RTS 



;then add l to 
;the buffer 
;pointer. . . 



J Return success 
;code and leave! 



; buffer full error Message 

BFM5G .SBYTE " File too large." 
.SBYTE ■■ Press a key." 
.BYTE EOL 

GENERIC 10 ERROR HANDLER 



in: y - error nunber 
out: y - 8 to retry, else 
error tt (abort! 



lOERROR 



SAVLIN 



;Save error tt on 
; stack twice. . . 



TYA 

PHA 

PHA 

LDX tt39 ;5ave text that 

LDA DISP+352,X ; is on the 

STA TSAUE,X ; interaction 

DEX ;line... 
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BPL 


SAULIN 






BPL 


RESTORE 


; 








LDY 


tte ;& return e. . . 


LDK 


tt <IOMSG ; Prepare for 






RTS 




LDV 


U >IONSG ; error handling 


NOTR 




CMP 


tt'A ;CAlbort? 


JSR 


ERRSET 






BNE 


RORA ;Nope, wait 


LDA 


tti.7 ;Print a '1' on 






PLA 


;Yes, return 


STft 


DISP+363 ;text line 






TAY 


• error code. . . 


PLA 


;Get tt back 






RTS 




SEC 


;Subtract 180. . . 


; 








SBC 


ttiee 


lOMSG 




•SBYTE " I/O Error . R" 


LDX 


tte ;Divide result 






.SBYTE "etry or Abort?" 


DIU18 CMP 


ttie ;by le with the 






.BYTE EOL 


BCC 


DIVIDED ;quotient in X 


! 








SEC 


;and renainder 


; GET 


BYTE FROM CHANNEL 1 


SBC 


ttie ; in ace. . . 




~""~ 






INK 




;out: 


y 


- e=successt or error tt 


BNE 


DIU18 




a 


- byte read 


DIVIDED ORA 


ttl6 ; Convert both to 










STO 


DISP+365 ; internal code 


;lf FIMDEOF is not zero and an 


TXA 


;and print. . . 


;eof 


is 


found, error processing 


ORA 


ttie 


;will 


be 


bypassed, but the error 


STA 


DISP+364 


;code 


will still be returned. 


RDRA JSR 


GETKEY ;Get a keypress 


GETl 








CMP 


tt'R ;tRJetpy? 






LDX 


tt$ie ;I0 channel 1 


BNE 


NOTR ;Nope, not R 






LDA 


tt7 ;Open coMHand 


PLA 


;It's an R! 






STA 


ICCOM,X 


LDX 


tt39 ;So, restore the 






LDA 


tte ;Set length to 


RESTORE LDA 


TSAVE,X ;old text. . . 






STA 


ICBLL,X ;l char. . . 


STA 


DISP+352,X 






STA 


ICBLH,X 


DEX 








JSR 
BMI 
PHA 


CIOU ;Go get it! 
OHNO ; Check error! 
;Save char 










SED 
LDA 


;DeciMal on! 






BYTESR jNow add 1 to 


Megamax C 






CLC 
ADC 
STA 


;to "bytes read" 
ttl ; counter... 

BYTESR 




for the 






LDA 


BYTESR+1 


Atari ST 






ADC 
STA 
LDA 


tte 

BYTESR+1 ;Can u bonk? 

BYTESR+2 










ADC 


tte ; 




Featuring 






STA 
CLD 


BYTESR+2 

;DeciHal off! 


• One pass Compile 


• In-Line Assembly • Smart Linker 






JSR 


SHOBR ;Show new value! 


• Full Access to GEM routines • Register Variable 






PLA 
LDY 


;Get char back & 
tte ; return success! 


Support • Position Independent Code • and much more... 


■ 




RTS 




System Includes: 


OHNO 




LDA 
BEQ 


FINDEOF ;Error! Flag 
SOMHAT ;EOF? Nope. 


• Full K&R C Compiler (with common extensions) 






CPY 


ttl36 ;Yes, is it an 


• Linker • Librarian • 


Disassembler • C Specific Editor 






BNE 
TYA 


SOWHAT J EOF? Nope. 
;Yes, return 


• Code Improver • Documentation • Graphical Shell 


SONHAT 


TAY 
RTS 
JSR 


;error code! 


Benchmark Compile Execute 


lOERROR ;Handle a 


Time Time 






BEQ 


GETl ; standard error 


Sieve 70 2.78 5095 






RTS 


;and return. 


"Hello, world" 63 N/A 4691 
♦Times in seconds. Sieve with register variables. 


j CLEAR 


INTERACTION LINE 


CLRLINE 


LDX 








tt39 ; Clear 40 bytes 


$199.95 For more information, call ^write: 


CLL 




LDA 
STA 


tte 
DISP+352,X 


Megamax, Inc ,J^fe 






DEX 
BPL 
RTS 


CLL 


Box 851521 


MM^^ 


a 






Richardson, TX 75085 4 f^ £tj 
(214) 987-4931 N^k^^ 


; READ/COMPRESS FILE 


jout: 


y 


- e=success, $FF=ugh! 


VISA, MC, COD ACCEPTED ^^^^T 


READ 




JSR 


CLRLINE ;Clear line 

S% ■ ^% ^ ^^ M m M^ V ^ ^_ ^ ^r ^« .*■. ■« ■ ■ ^ 


CIRCLE *109 ON READER SERVICE CARD 






JSR 


CLOSEl ; Close lOCB ttl 
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LDX 
LDA 
5TA 
J5R 
LDA 
5Tfl 
LDA 
STft 
STft 
5TA 
STfl 
JSR 
BPL 



tt?ie ; 

nz 

ICCOM,X 
SETFILE ; 

ICAKl.X ; 
tte ; 
ICAX2,X ; 
LSEGEND ; 
LSEGEMD+1 
FINDEOF 
CIOV ; 
:OPENDK ; 



Open lOCB ttl: 
open CDMHand. . . 

Set filenane 

Open for input 

only 

Clear 2nd aux 

byte as well as 

a few vars. . , 



Open it, Nat! 
No errors! 



BNE iGETEND ;ess and can be 



LDX » <OEHSG ;Uh-oh: error! 
LDV tt >OEHSG ;Dd error 
JSR ERRSET ;stuff 
:NOSIR JSR GETKEY ;Get keypress 
CMP tt'R ; tRJetry? 
BEQ READ ;Ja, retry it! 
CMP tt'tt ; CAJbort? 

BNE :NOSIR ;Nah! 
BEQ :RETERR ;Ves, stop! 

■ 

;Hake sure file is binary 



iOPENOK 



I ERR 
IRETERR 

INOERR 



JSR 
BPL 
JSR 
LDV 
RTS 
STA 
JSR 
BMI 
CMP 
BNE 
LDA 
CMP 
BEQ 

iNOTBIN LDX 
LDY 
JSR 
JSR 
J MP 

;BIN JSR 
BMI 
LDA 
JSR 
BMI 



GET! 
:NOERR 
CLDSEl 
ttSFF 

TEMP 
GETl 
:ERR 
ttSFF 
SNOTBIN 
TEMP 
»$FF 
:BIN 

n <NBMSG 
n >NBMSG 
ERRSET 
GETKEY 
:ERR 
PUTBUF 
:ERR 
ttSFF 
PUTBUF 
:ERR 



;Get 1st byte 
;No read errors! 
;Crud! an error! 
; Return error 
;flag 

;Save 1st byte 
;Get 2nd byte 
; Check error 
;Does byte=SFF? 
;No! Not binary 
;Check 1st byte 
;is it Sff? 
;Yes! Nhew! 

;The file 

;is not binary 
;so abort and 
;return error 
;flag in Y. 
;Mell, the file 
;is binary so 
;put 2 $FF's in 
;the RAM buffer 



LDX U <RDMSG ;Print 
LDY n >RDMSG ;"Reading. 
JSR PRINT ; Message 

■ 

;read the segnent header 
;inforMation and deternine 
;if a "fake" binary header 
;exists 

Igetst 



:0K 



INC 


FINDEOF 


;E0F=Ok 


JSR 


GETl 


;Get a byte 


BPL 


;dk 


;No errors! 


CPY 


ttl36 


;E0F found? 


BNE 


:ERR 


;No, an error! 


JSR 


CLOSEl 


;Yes, the file 


LDY 


no 


;has been read 


RTS 




successfully! 


DEC 


FINDEOF 


EOF=bad 


STA 


START 


Save start 


STA 


TEMP 


address lo byte 


JSR 


GETl 


Get hi byte 


BMI 


:ERR , 


Check error 


STA 


START+1 J 


Saue byte. . . 


STA 


TEMP+1 




CMP 


tt$FF , 


If the start 


BNE 


SGETEND J 


address=$FFFF 


LDA 


TEMP , 


then its nbt 


CMP 


ttSFF , 


the start addr- 



LDA 


»2 


;reMoved. . . 


JSR 


ADDEB 




JMP 


:GET5T 


;Try again! 


IGETEND JSR 


GETl 


{Get end addr- 


BMI 


:ERR 


;ess lo byte 


STA 


END 


;and save it 


JSR 


GETl 


;Now get hi 


BMI 


:ERR 


;byte. . . 


STA 


END+1 




;check if this segnent can be 


;coHbined with the last one 

■ 


LDA 


TEMP 


;If this seg- 


SEC 




IMent's start 


SBC 


ttl 


;address-l 


STA 


TEMP 


lequals the last 


LDA 


TEMP+1 


isegnent's end- 


SBC 


tte 


ling address 


STA 


TEMP+1 


ithen the two 


CMP 


LSEGEND+1 ;segnents can 


BNE 


:NOCONT 


■be coMbined 


LDA 


TEMP 


Cthey are 


CMP 


LSEGEND , 


contiguous) 


BNE 


:N0CONT 





LDY ne ;C0Mbine 'en! 

LDA END ; Merge the two 
STA CLENDPTR),Y ;segnents by 




/IUIVVlTS 



DESPERATE BATTLE 
FOR EARTH 



STRATEGY 

ACTION 

SPACE 

BATTLES 

FIRST 
PERSON 
ANIMATED GRAPHICS 




Join the Allied Rebel Fleet. 
Fight the dreaded Aliant army, 
the force that holds the Earth 
in chains. Their power crystals 
are on the way. Once they ar- 
rive, Humanity is doomed. 
Top-notch bulllet pilots are 
needed to stop them. Lead 
the mission to free the Earth. 
Only the bravest need apply. 

DO YOU HAVE WHAT IT TAKES? 
EXCLUSIVELY DISTRIBUTED BY 

TDC DISTRIBUTORS INC. 
3331 BARTLETT BOULEVARD 
ORLANDO, FLORIDA 32811 



PROGRAM PARAMETERS 

LANGUAGE MACHINE 

NUMBER OF PLAYERS 1 

AVERAGE COMPLETION ... 90 MIN, 

AGE GROUP 10 TO ADULT 

CLASS STRATEGY ACTION 

SOUND YES 

ANIMATED GRAPHICS YES 

EQUIPMENT JOYSTICK 



SYSTEMS 

AVAILABLE 

ATARI ST 

ATARI 
C-64/128 




ORDER NOW 

305-423-1987 



STARSOFT DEVELOPMENT LABORATORIES 
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3 streamliner 



continued 



ZNY 
LDA 
5TA 
LDA 
JSR 
SED 
LDA 
CLC 
ADC 
STA 
LDA 
ADC 
STA 
CLD 
JSR 
J HP 

:NOCONT LDA 
JSR 
BPL 

:ERR2 JMP 

:GOOD LDA 
JSR 
BMI 
LDA 
STA 
LDA 
STA 
LDA 
JSR 
BHI 
LDA 
JSR 
BMI 

;NEHEND LDA 
STA 
LDA 
STA 



;naking the 1st 
END+1 ;have the 2nd's 
CLENDPTR},Y ; ending adr 
tt4 ; Record 4 extra 
ADDEB ; bytes and 

;l extra seg. . . 
EKTRAS 

ttl 

EXTRAS 

EXTRAS+1 

no 

EXTRAS+1 

SHOES ;Show new value 
:NEMEND J Load seg data! 



LDA 


tte ; Clear locked 


STA 


LOCKED ;flag 


JSR 


CLOSEi ; Close lOCB ttl 


LDA 


EXTRAB ;lf no bytes 


BNE 


:OPEN ;were renoved 


LDA 


EXTRAB+1 ;then there is 


BNE 


:OPEN ;no need to 


LDX 


tt <NNNSG ; rewrite the 


LDY 


tt >NNMSG ;file. . . 


JSR 


ERRSET 


JSR 


GETKEY 


RT5 





START ; 
PUTBUF ; 

:GOOD ; 
:err ; 

START+l 

PUTBUF 

:ERR2 

BPNT ; 

LENDPTR ; 

BPNT+1 ; 

LENDPTR^^l 

END 

PUTBUF 

:ERR2 

END+1 

PUTBUF 

:ERR2 

END 

LSEGEND 

END+1 

LSEGEND+1 



Don't coMbine 
so record the 
new segnent's 
header data. . . 



Csave the loc. 
of the ending 
address. . .) 



open the file for input; if it 
is locked, unlock it 



;Clear text 
;I0CB ttl 
;0pen coMMand. 



Record the new 
ending address 



;read the actual segment data 
;into RAN 



;LOAD 



;MORE 



JSR 
BMI 
JSR 
BMI 
LDA 
CNP 
BCC 
LDA 
CMP 
BCC 
JMP 
LDA 
CLC 
ADC 
STA 
LDA 
ADC 
STA 
JMP 



GETl 

:ERR2 

PUTBUF 

:ERR2 

START+l 

END+1 

;more 

START 

END 

iMORE 

SGETST 

START 

ttl 

START 

START+l 

tte 

START+l 
;LOAD 



;Get a byte. . . 

;& save it 

;All bytes read? 
;If so, try to 
;get another 
; segment ! 



;Else, add l to 
;the byte count 
;and keep on 
;readin' ! 



:OPEN 


JSR 


CLRLINE 




LDX 


tt$ie 




LDA 


tt3 




STA 


ICCDM,X 




JSR 


SETFILE 




LDA 


tts 




STA 


ICAX1,X 




LDA 


tte 




STA 


ICAX2,X 




JSR 


CIOU 




BPL 


:OPENOK 




CPY 


ttl67 




beq 


: UNLOCK 




JSR 


lOERROR 




BEQ 


:OPEN 


■ 


RTS 




: UNLOCK 


INC 


LOCKED 


:retry 


LDX 


tt$ie 




LDA 


tt36 




STA 


ICCOM,X 




JSR 


SETFILE 




LDA 


tte 




STA 


ICAX1,X 




STA 


ICAX2,X 




JSR 


CIOV 




BMI 


:ERR 




JSR 


CLOSEI 




JMP 


:OPEN 


:err 


JSR 


lOERROR 




BEQ 


: RETRY 




RTS 





jSet filename 
; Input node. . . 



;Open file! 
;No errors! 
;File locked? 
;Yes, unlock it! 
;No, its just a 
; standard error 



; Record this 
;use lOCB ttl 
; Unlock command 

;Set file.iame 
;Clear aux. . . 



;Unlock file! 
;Handle error! 
;Close file & 
■re-open! 
; Handle any 
;I0 errors 



now dump the buffer to disk, 
one byte at a time 



OPENOK LDX 
LDY 
JSR 
LDA 
STA 
LDA 
STA 



tt <NRMSG ; Print 

tt >MRHSG ;"Nriting. . ." 

PRINT ; message 

tt <BUFFER ; Point to 

START ; Start of RAN 

tt >BUFFER jbuffer. . . 

START+l 



:DUMP 



;misc . 

■ 

OENSG 
NBNSG 
RDNSG 



messages 

.SBYTE "Can't open file. " 

■SBYTE "Retry or Abort?" 

.BYTE EOL 

.SBYTE "Not a binary file" 

.SBYTE ". Press a key." 

.BYTE EOL 

.SBYTE " Reading f" 

.SBYTE "ile. . ." 

.BYTE EOL 



.LOCAL 
; HRITE BUFFER TO DISK 
MRITE 



iNOERR 



LDX 
LDA 
STA 
JSR 
LDA 
STA 
STA 
LDY 
LDA 
JSR 
BPL 
JSR 
BEQ 
J HP 
SED 
LDA 
CLC 
ADC 
STA 



tt$ie 

ttll 

ICCOM,X 

SETFILE 

tte 

ICBLL,X 
ICBLH,X 

tte 

CSTARTI, 
CIOU 

:noerr 

lOERROR 

:duhp 

CLOSEI 

BYTESM 

ttl 
BYTESH 



; Prepare to put 
;a byte to disk 
; using lOCB ttl 
;Set filename 
;Set length to l 



;Get byte from 
Y ;RAM buffer & 
; write to disk! 
;No errors! 
;An error! 
;R)etry 
;Albort 
;Decimal on! 
;Add 1 to the 
; "bytes written" 
;counter. . . 
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;REL 



LDA 


BYTESM*! 


ADC 


»e 




STA 


BYTESH+1 


LDA 


BYTESH+2 


ADC 


tte 




STA 


BYTESW+2 


CLD 




;Decinal off! 


JSR 


SHOBM 


;Show new value 


LDA 


START 


;Move to next 


CLC 




;byte in buffer 


ADC 


ttl 




STA 


START 




LDA 


START+1 




ADC 


tte 




STA 


START+1 




CMP 


BPNT+1 


;lf not last 


BNE 


:DUMP 


;byte then keep 


LDA 


START 


;on writin! 


CMP 


BPNT 




BHE 


:DUMP 




le & lock if 


necessary 


JSR 


CLOSEl 


;Close up file 


LDA 


LOCKED 


;Re-lock it? 


BEQ 


SBYE 


;Nah! 


LDX 


ttsie 


;Prepare lOCB 1 


LDA 


It35 


; f or re-locking 


STA 


ICCOM,X 


; procedure. . . 


JSR 


SETFILE 




LDA 


»e 




STA 


ICAX1,K 





ULTIMATE STORAGE 

Organize your ANALOG Computing library with sturdy, custom-made 
binders and files in deep blue leatherette with embossed silver letter- 
ing, labels included. One binder or box file holds 12 issues (1 year). 




The ANALOG Computing binder opens flat. Priced at only $9.95 
each— 3 binders for $27.95 or 6 binders for $52.95. 

The ANALOG Computing file is compact, with easy access. Only 

$7.95 each— 3 files for $21.95 or 6 files for $39.95. 

Add S1.00 (outside U.S., add $2^0) per case/binder lor postage and liandllng (U.S. funds). 



1 enclose 


my chec 


(/money order in 
ANALOG files 


the amount of $ 


Send me 


ANALOG binders. 


PLEASE PRINT. 

Nflmn: 




Address: (No 


P.O. Boxes) 






Ciry: 


.«;tatR- 7ip: 



i^aii to: Jesse Jonos Industries 

DEPT. ACOM, 499 East Erie Ave., Philadelphia, PA 19134 
Call Toll Free 1-800-972-5858 — 7 days, 24 hours 

Charge orders only, minimum $15.00 PA residents, add 6% sales lax. 
Satisfaction guaranteed or money refunded. 



!BYE 



STA 


ICAX2,X 


JSR 


CIOU jLock 'er up! 


BPL 


SBYE ;No errors! 


JSR 


lOERROR 


BEQ 


:REL ;R)etry 


RTS 


;A)bort 


JSR 


CLOSEl ; Close lOCB ttl 


LDX 


tt <DNMSG ; Print "Done" 


LDY 


tt >DNMSG ; Message. . . 


JSR 


PRINT 


JSR 


CLRKBD ;Clear keyboard 


J MP 


GETKEY i& wait for key 



;Misc. Messages 



NNMSG 
NRMSG 
DNMSG 

■ 

BUFFER 



.SBYTE "No need to rewrit" 

.SBYTE "e. Press a key." 

.BYTE EOL 

.SBYTE " Mriting f" 

.SBYTE "ile. . ." 

.BYTE EOL 

.SBYTE " Done. Pres" 

.SBYTE "s a key." 

.BYTE EOL 



»= $82E0 
.NORD MAIN 
.END 



PICK-YOUR-PRICEHI 



THAT'S RIGHT — PICK THE 
PRICE YOU WANT TO PAY AND 



GET FREE SHIPPING 



HERE'S HOW - JUST SEARCH THRU THE 
ADS OF THIS ISSUE, PICK THE ITEM 



SIDE-LINE WILL MATCH 

THE PRICE! 



Send a CERTIFIED Check or MONEY 

ORDER (Sorry no COD or CREDIT CARD) 

mentioning the page of the ad you 

want price matched, to - 

SIDE-LINE 
COMPUTER 

86 Ridgedale Avenue 

Cedar Knolls, NJ 07927 

(201) 455-7844 

Orders shipped FREE within 24 hours 

FULL Exchange on DOA detects 

FULL Manufacturers Warranties Apply 

SORRY - we do not have close-outs, 

obsolete or discontinued products 



APO & FPO add $5.00 HANDLING Charge 
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i -800-331 -7054 




r 




1-800-233-6345 



C€MPLTCC 
VICE 

NOW COAiPIJTEC VICE joins with S & S Wholesalers 

TO SAVE YOU MORE $$$ THAN EVER! 

OUR ORDER LINES ARE NOW OPEN 24 HOURS A DAY, 7 DAYS A WEEK 

OUR TECH-SUPPORT LINES ARE OPEN 8:00 AM - 8:00 PM 




BASIC WCKD PCOCESSiNC SYSTEM 

Atari 130XE 

Atari 1050 

Seikosha 100 Printer 

10 Blank Discs 

Word Processor 

Data Base $377.77 

PELtXE WCKC PiJCCCSSINC SYST04 

Atari 130XE 

Atari 1050 Drive 

Atari XMM801 Printer 

2 Joysticks 

4 Games 

Word Processor 

Data Base 

Green IVlonitor 

Cable 

10 Blank Disks 

Drive Cleaner $595.00 



STACTCC SYSTEM 



Atari 800XL 

Atari XC1 1 Datacossette 

2 Joysticks 

5 Games 



$139.99 



Al^r.ACE CtiAMP 



Pac Man 

QIX 

2 Joysticks 

Case 



$15.99 



Infocom Hint Books 
bV-i' DSDD Boxed 
3y2" Sony Disks SSDD 

Power Pad 

3 Free Programs 

(Koala Clone) 

Goutlet Surge Protector 
Intro To BASIC (Cass.) 



$4.25 EA 

$4.90 

$12.90 



$39.90 

$19.90 
$2.99 



INrOC€M FCC ATAI2I ST 



Cutthroats 
ZorkI 
Zork II 
Zork III 
Planetfall 
Spellbreaker 
Suspended 
Suspect 



Your Choice 

$22.00 EA 



HCNTHt/y SPECIALS /. 



Mercenary 
Golden Old! 
Miniature G 
USAAF 

Silent Sen^ii 
World yAx\ 
ST Pool ^ 
Gettysburg 
10th Frarme 




Champ 



$19.90 
$19.90 *-' 

S24.90 
S24.00 



$22.90 
$24.00 
$20.00 
$39.90 
$24.00 



■>:, 
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S & S Wholesalers, Inc. 
T -800-33 1-7054 orders only 

CUSTOMER SERVICE - IN FLORIDA (305) 538-1364 
FREE FREIGHT ON ALL ORDERS WITHIN CONTINENTAL U.S. OVER Si 00.00 

Orders under S100.00 add S4.00 shipping and handling. C.O.D. orders add $4.00. Prices reflect a 3% cash 
discount. Add 3% for VISA/MC. (FPO. APO, Canadian & all other Postal Orders actual shipping charged. ) 
Florida residents add 5% sales tax. Personal checks & money orders allow 2 weeks for processing. Prices 
subject to chonge without notice Orders received before 1 2:00 PM will be shipped same day. 



AT/iCI tiARCHACC 



130XE Computer 
65XE Computer 
800 XL Computet 
1200XLCoiTiputer 
1050 Disk Olive 
1027 Plintet 
XMM801 Plinler 
XMe01 Modem 
XCIIDoloCosotte 
Afoii UoM Pen 
AtoTi touch tablet 
800 Xl Power Supply 



S1M.90 
S8790 
S 79.90 
S 69.90 
SI 34.90 
S 99.90 
S199.90 
S 37.90 
5 37.90 
S 57.77 
S 42.77 
S 29.77 



EPSON PCINTEPS 



IxaOw/Troctot 

Fxes 

FX268 



5259.90 
S3 79.90 
S504.90 



PANASONIC 

PPINTCPS 



Kxpioeo 

KXP1091 

KXP 3131 Doisy Wheel 
Pcanosonic Pibbons 
tafonet Plintet Coble 



SI 99.90 
S249.9C 
S279.90 
5 8.77 
S1&70 



STSCFTWAPE 

HilchNkets Guide to Goloxy S2a97 

Widel S26.97 
Leottwf Goddesses olPhobos S23.97 

Moon Mist S23.97 

PlonetfaB S2397 

Sea Stalker S23.97 

Soceier S26.97 

Spetbieaker S29.97 

SlatciDss S2997 

SlBpect S26.97 

Siapended $29.97 

tWty S23.97 

Whhbiinoer S23.97 

VWness S2a97 

ZOiltl 523.97 

Zoi* 526.97 

ZokB S2697 

RnolWoid 58700 

Hex S2397 

PC/W«comm S7440 

MSSMwtOgle S23.97 

GuTHhlp 52i97 

Silent Service 523.97 

Sen Spool 529.97 

time BonSts Si3.97 

Your FlrxjnckM fululB S23-97 

AKOvdfoevstVovaalng S2697 

Ballyhoo S2397 

Cutthnjon 52197 

OeodHne S29.97 

6x:ftonlet S2J97 

SI Accounts 5144.77 

Owdanlnaer 544.97 

CnosWT«sle«2000 527.97 

UmasolHcTvoc 511.97 

$¥ SYSTEMS 

COI.OSSYSIEM 

S20 SI Computet 
SF 354 Disk Dnve 
SO 224 Colof KAonitot 

aoSc/Logo/FiisI Word $779.00 

M0N0CM80ME 

S20 St Computer 

SF 354 Dak Olive 

SO 24 Monitor 

BoiicAogo/Knl WOid 5569.00 



MICPOPPOSE 



Aerojet 

f15 Strike Eagle 

Conflict in Vietnam 

Gunstiip 

Silent Service 



82077 
519,47 
S22 77 
52277 
524 77 



EATTLPIES 
INCLIJLEI 



Consultant 
Papefctip 
FOpGfClip w/Spe!l 



S35 77 
S35.97 
Sd7.77 



ST S€TT>VAPE 


ALT 


517.97 


Animator 


523.97 


Back-up 


523.97 


Business Toots 


529.97 


Cotendot 


$17.97 


Cords 


52197 


Cornerman 


529.97 


D.F.T, 


S29.97 


DOS Shell 


S23.97 


Easy Record 


S47.97 


Echo 


523,97 


Bght Ball 


523.97 


Hip Side 


523.97 


Gold Runnel 


523.97 


Intto to ST Logo 


S29.97 


lOssed 


52197 


Financial Cookbook 


530.97 


GoWen Oldies 


521.97 


New Technotogy Cokx Book 


51297 


Ogre 


524.97 


Skytox 


52797 


Ultima 111 


S3667 


Super Huey 


523.77 


Alteinote Realty The Oty" 


529 77 


Mercerxjry 


52177 



ATAPI12Sr; 

Word Processing System 

130XE Computer 

1050 Disk Drive 

1027 Printer 

Atariiortitet Ply^ 

2 Gomes 5377.77 

■mJ .XMM 801 Ptintet 5447. 77 

ST HACDWAPE 

S39C90 
5207,77 
5149 77 
5297.77 
5167.77 
5199.77 



520 ST Comfxjtei 
SF 314 Disk Olive 
SF 354 Disk Drive 
SCI 224 Monitor 
Sa 24 Monitor 
SM 804 Printer 



STAP MICPONICS 



NX 10 
LU 1210 



5239.90 
5199.77 



CPCPEPeUNP 



Kofoteka 
Frintship 
US 1/2/3 
Companion 
Bank St. W/iter 



$yN/4PSC 



Syncak; 

Synftle- 

Templates 

Syrictvon 

SytitterKJ 



517.00 
S25.90 
S14 90 
524.90 
S3290 



53277 
S3277 
51477 
S32.77 
532.77 



ACCCLAPE 



Dam Busters 
fight Night 
HoidixiU 
Law of the West 



517.90 
S1790 
S17.90 
517.90 



XLENT SOFTWARE 

Rfst XLcNT Word Processor 
Miniature Golf 
Rubber Stamp 



ST SOETH-APE 


M-COPY 


S47.97 


M-Disk 


523.97 


M-Dupe 


517.97 


MoiOf Motion 


52197 


Mi-Term 


S29.97 


Michtion BBS 


S29.97 


Michtron Utilities 


S35.97 


Mighty Moil 


529.97 


Mission House 


52197 


Mud-Pies 


517.97 



Personal Mor^y Management 529.97 



PiniDail Facloiv 
Pro Football Wijaid 
VIP F^olessional 
Personal PASCAL 
Peison Prolog 
Autoduel 
Doto Manoger ST 
Super Grophics ST 
Swiftcalc ST 
Sylvia Porter 
Sytvio Porter Vol 2 



523.97 
523.97 
S94.97 
544.97 
SS3.97 
530.97 
547.97 
547.97 
&47.97 
S47.97 
S47.97 



ON DATA 



Okimote 10 
Oklmate 20 
Okimote 120 
Plug-N-Roy 



5124.77 

5134.77 

S224.77 

CAa 



PISrETTES 



Sony DSDD 5'.i" 
Memorex DSDD 5U" 
Precision DSDD SM' 



59.97 

S897 
S7.97 



Bonus by Veitxjtim DSDD 5:4" 5 697 



Sny3Vi-DSOD 
Sony 3«' S50D 
Winners 3 . OSDD 



525,50 
51960 
524.00 



ST SOETWAPE 

Beotles Musicdisc S1 1.97 

Clossics Mustedisc 511 97 

Mdlploy 52997 

Regent Bose 569.97 

Regent Bak 529.97 

Booeni Word 52097 
Regent Word 1 Gem Veision 55997 

Spell CheckoT 529.97 

E-ZCoto 541,97 

Help Cole 514 97 

Help-mate 517 97 

Helpmoto 52197 

Inventory Ivlasler 559.97 

Word Writer ST 547 97 

Maga font SI 52177 

Rubbet Stamp ST S28.77 

ST Music Bolt S29.77 

Copy U ST 52177 

VIP Lite S49.77 

Spoce Quest S29.97 

Utima II S3597 

Winnie tfie Pooh S14.97 



jorsTicrs/ 

AOCESSOPIES 



WICO The Boss 


51077 


WICO Boll 


S14.77 


'i/WOS Way 


518,77 


Kiaft 


5 877 


Recoton Big Shot 


S11.77 


S'«" Drive Cleaner 


5 8.77 


S-,?" Drive Cleoner 


5 9,77 


CRT Cleaner 


514,77 


800 XL Cover 


5 7.77 


520 ST Cover 


5977 


Drive Cover St 


5 7.77 


1050 Cover 


5 7.77 


1025 Cover 


5 7.77 


1017 Cover 


5 7.77 


130 XE Cover 


5 7.77 


1224 Cover 


S11.77 


/HONITOPS 


Samsung 12" Green 


5 47.77 


Nee 1226 Color 


5124.77 


Goldstar 12" Color 


5127.77 


Monitor Coble 


5 577 


Samsung 14" Color 


5139.77 


Senliek 12" Amber 


5 59.79 


ST SOETWAPE 


HABA Special 


5 87.43 


HABA Writer 


544.97 


HABADEX Phonebook 


S3597 


HABAMerge 


5 2197 


HABASpell 


52197 


HABAView 


544.97 


Hippo-C 


S 44.97 


Home Accountant 


S 44.97 


Moilroom 


5 44.97 


Professionol Business Letters 


S 29.97 


Golden Path 


5 2177 


Guiki ot Thieves 


5 2177 


B3wn 


S 2177 


Starglider 


S 23.77 


Hippo Computer Almarrac 


S 20.97 


Hippo Disk Utilities 


5 29-97 


Hippo Eprom Burner 


S 97.77 


Hippo Jokes and Quotes 


5 2097 


Hippo Ramdisk 


5 20.97 


HippoArtl 


S2197 


HippoBackgammon 


5 2197 


Hipp*Concept 


S 53.97 


HippoLedger 


5 53.97 


HippoPixel 


523.97 


EttspoSlmple 


S 29.97 


BpaQsnell 


5 2197 


HIibpWord 


5 53.97 


ilippowcird Fonts 


S 23.97 


Cambridge lisp 


S119.97 


ISO PASCAL 


5 59.97 


Lottice C Compiler 


5 89.97 


Macro Assembler 


547.97 


rvtenu 


5 17.97 


General Ledger 


5 59.97 


Kempelen 


5 23,97 


King's Quest U 


5 2997 


King's Quest 


S 29,97 


King's Oueil HI 


S 29,97 


Povroii 


S 59.97 


Series Bundle (CD.AfiGL) 


St 19,97 


Adventure ot Sinbad 


532.77 


Alorl St. Wars 


5 26,77 


GfL Chomp footboll 


5 26,77 


Tenth Frome Bowling 


5 26,77 


High Rollei 


5 3277 


ArtiC fox 


S 26.77 


Prlntmosters ' 


S 26.77 


GFABosic 


5 52.77 


Balance of Power 


S 32.77 


Publishing Partner 


5 97.77 


Worid Korore Champ. 


526.77 


Chompkjnship Boseboll 


5 2677 



CIRCLE #111 ON READER SERVICE CARD 



rr rr f rr i 

rrrrrrrr 

-rrrrrrr 

■yrrrrrr 

-rrrrrrr 



48K Cassette or Disk 
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A game to realize 

every homeowner's nightmare 



by John Hanley 



The basement plumbing has gone haywire, and it's up 
to you to divert the impending disaster. Leaking pipes are 
bursting aroiond you, and there's no time to call the plumb- 
er. Don't let it get the best of you — just grab your Roto- 
wrench and get to work. 

Playing the game. 

Upon entering the basement, you'll see a maze of multi- 
colored, intersecting pipes. The gray pipes are the basic util- 
ity lines, while the brass pipes are indestructible. The blue 
pipes are the adversary; these are the ones that are leaking 
and wreaking havoc in the basement. 

There are three main valves that control the water flow 
in the basement. Your initial job is to grab a wrench (all 
of which just happen to be near the bottom of the basement) 
and close one of the valves, thereby decreasing the water 
flow and reducing the odds of more leaking pipes. Closing 
the valves will give you time to make the needed repairs, 
but don't dillydally — the water pressure is building up 
again, and the valves will only stay off for a short while. 

A shortcut through the "alley way" can save some time, 
but beware — the alley way is also the slickest area of the 
basement. Entering the alley way from either end will bring 
you to the opposite side of the basement. 

Activating the "roto-warp" device can also get you out 
of a desperate situation. Pushing the "warp" button will im- 
mediately transport you to a random location. Because you 
are given only five warps to begin with, they should be used 



only as a last resort. You can accumulate three additional 
warps each time one level is completed. 

Points and pointers. 

Fixing a leaky pipe (and remember: you'll need a wrench 
for each one) will chalk up 10 points on the scoreboard, 
and closing a valve gives you 50 points. 

After closing all three valves, the bonus rovmd gives you 
some extra time to repair any of the remaining leaks. It also 
gives you a chance at extra bonus points: fixing a leaky pipe 
during the bonus round gives you 10 points times the level 
number you're currently playing in. Clearing the screen 
gives you 200 points times the level number, and complet- 
ing the round gives you 100 points times the level number. 

Here are a few helpful hints for Roto-wrench beginners: 

— Use the blue leaky pipes to your advantage. Try to leave 
them in key access areas, to be used later. 

— Use the alley way often, but be careful not to get trap- 
ped on the other side. 

— Stay clear of pipe intersections. A pipe can land on 
you at any time. 

— Don't rely solely on roto-warp to improve your position 
in the basement. It may get you out of a tight jam some of 
the time, but it could put you in a tighter jam, too. H 

John HanJey, 24, is an assistant manager for a California 
record store. He's been programming for three years, en- 
joys playing and writing games, and recently started a bulle- 
tin board. Roto-wrench is his first published program. 

(Listing starts on page 48) 



PAGE 46 / JULY/AUGUST 1987 



ANALOG COMPUTING 



800 4 PIECE BOARD SET - $28.50 



SET INCLUDLS 8C0 MAIN. CPU 

10K ROM AND POWt F^ BOARDS 

ALL MODULES NEW AND 

coMPLFTE wnmcs 



800/400 MODULES 
NEW PARTS COMPlHTEWrmiC'S 

$Q50 

All Modules 
Complete 
With IC's 



• 800 Main Board 

• 800/400 CPU with GTI A 

• 800 10K"B" O.S Module 
•16KRAM CXB53 
•400 Main Board 
•800 Power Supply Board 
•400 Power Supply Board 

• 800XL Modulator 



INTEGRATED CIRCUITS 



$>150 



/ I CPU CO14806 

fc+ FA POKEY.... C0 12294 

I '^"- PIA C014795 

ROM ... . C0123998 QTIA CO14805 

ROM....C012499B ANTIC ... C012296 

HOM....COM599e CPU CO10745 

DELAY.. CO60472 PIA C010750 

CPU.... 6507 CPU C014377 

TIA coiou« PIA 6532 



DISK DRIVE 
CUSTOM 810 DRIVE 

Fully operational 810 mounted on acrylic 
base. No case. Includes I/O cab le and 

W/HappyV7.1- $179,001 



;95 



810 MODULES 

810 side Board $29.50 

810 Side witli Data Sep. $39.50 
810 Rear Power Board $25.00 

810 Analog Boad $15.00 

Data Separator $15.00 

MISC. HARDWARE 

1030 Power Pack $12.50 

600XL 64K Upgrade . . $29.95 
Fastchip for 600/400 . . $15.50 

Animation Station $49.95 

1050 Stepper Motor .. . $14.50 

Numeric Keypad $15.00 

860 or PR printer cable $12.50 

P: R: Connection $65.00 

Joystick Cable 95 

Atari Joystick $7.00 

Atari Paddles CX30 . . . $6.50 
800XL Main Board ... . $49.50 
800XL Keyboard $29.50 

BOARD SETS 

New Parts complete with IC's 
800 4 PIECE BOARD SET 
includes 800 Main, CPU, 10K 
ROM and Power Board $28.50 

810 BOARD SET 
Sideboard with Sep. Power and 

Anakig Boards $57.50 

400 3 PIECE BOARD SET 
includes 400 Main, CPU and 

Power Board $19.50 

400 Keyboard $12.50 



AMERICAN TECHNA- VISION [TV] 



Mail Order and Repair 15338 Inverness St., San Leandro, CA 94579 

Builnin A<ldrMi USB WMNnflttwi Av«., San LMndro, C& 94577 

NO MINIMUM ORDERl We accept money orders, personal checks or C.O.D.s 
VISA, Master/Card okay. Credit cards restricted to purchases over $20.00. No 
personal checks on C.O.D. - Shipping; $4.00 shipping and handling on orders 
under $150.00. Add $2.00 for C.O.D. orders, in Canada total $6.00 for shipping 
and handling. Foreign shipping extra. California residents include 6 V2% sales tax. 

PrkMi lubfva n dia/ig* wWwuI notica. Sind SASE tor IrM pflOB Ikl Alai k ■ i«g rxlwrwlt or AW CorpL 



REPAIR MANUALS 

SAMS Servk^ Manuals for the 
following units: 800, 800XL, 
130XE, 400, 1050 $19.50 ea. 
520ST Service Man. . . $37.50 

HAPPY ENHANCEMENTS 

810 Verskxi 7.1 Enhan. $89.95 
1050 Happy V7.1 . . . $139.50 
810 V.7.1 Update . . . $47.50 

CABL£S / CONNECTORS 

6' 13 Pin I/O Cable $8.75 

1/0 13Pin PC Mount . . . $4.50 
I/O Cab's Plug Kit ... . $4.50 
ST Monitor Plug (Male).. $5.50 
ST 6' Drive Cable .... $14.00 
Joystbk Extension Cable $5.00 
Printer Interface $39.95 

850 BARE BOARD 

With parts list $7.50 

(Includes hard to find crystal) 

ANIMATION STATION 

Grfuhics tablet with Deslgnlab 
software. KOALA software 
compatibte. 8 bit only . . $49.95 

EDITOR/ ASSEMBLER 

CartrWgeonly $10.00 

BASIC CARTRIDGE 

Basb Rev. "A* Cartridge works 
will all Atari Computers except 
ST. Includes manual. 
800XL Owners Notel Use this 
cartridge while programming to 
eliminate the severe errror In 
the built in "B" Basic. . . $10.00 



POWER PACKS 

Replacement transfornner lor: 
800/400, 810, 1050, 1200XL, 

1020 $14.50 

1030 Power Pack.... $12.50 

COMPUTER BOOKS 

Inskje Atari Basic $5.00 

Atari Basic Ret. manual $5.00 
Advanced Programming $13.95 

Hacksrbook $5.00 

400/800 Ref. Guide . . $20.00 
Bask; Atari Basic $16.95 

CARTRIDGE MAKING 
SUPPLIES 

16K Eprom Board with case, 

uses two 2764's $5.95 

10 or more $4.95 ea. 

16K Eprom Board with case, 

usee one 27128 $6.95 

10 or more $5.95 ea 

PROBURNER EPROM 
PROGRAMMER 

Eprom burner in a cartridge, 
works with 800/400 & XL/XE 

series computers $145.00 

2764 EPROM $3.95 

SOFTWARE 

Miner 2049er Cart. .. . $10.00 

Q'Bert Cartridge $10.00 

Pac-Man CartrWge . . . $5.00 

IDonkey Kong cart $5.00 

Eastern Front cart. . . $5.00 

Springer CartkJge $5.00 

Atlantis Cartrklge $5.00 



CALL TOLL FREE 
1-800-551-9995 



SERVICE RATES 

Flat Service Rates below 
Include Psrts & Labor, 60 
Day Warranty 

800 $39.50 

850 $39.50 

810 $69.50 

800XL $49.50 

1050 $85.00 

800 KEYBOARD $25.00 

Include $7.00 return shipping 
and insurance, include $4.00 
shipping for 800 keyboard only 

10K Rev. "B" Upgrade 
for older SOO/400's 

End printer/disk drive timeouts 
and other errors. Many new 
programs require Rev. B. Type 
the following peek In Basic to 
see If you have Ftov. B. 
PRINT PEEK(583B3) 
if the result equals 56 you 
have the old O.S. Three Chip 

ROM set with instr. $7.50 

Complete 10K module . . $9.50 

GTI A Ugrsde for 800/400 

Add addittonal graphics nudes 
and be compatible with the 
latest software $4.50 

810 Drive Upgrsde 

Change to Rear/Analog design 
for l3est performance $39.50 



IN CALIF. OR 

OUTSIDE U.S. 

CALL- 415-352-3787 



CIRCLE #112 ON READER SERVICE CARD 



Some 


program listings reproduced in 


ANALOG Computing may 


contain "strange' 


characters not shown on the keyboards of 


earlier Atari models 


. These 


are special characters which use the CTRL, ESC and "ATARI LOGO" (inverse) keys. Shown below 


is a list of these characters and the keystrokes used to get them. 














9 


_-.— 


CTRL 














■ 





INVERSE 


CTRL 


H 


t 


-..— 


CTRL 


A 


L 





CTRL Z 






■ 





INVERSE 


CTRL 


N 


1 


^.— 


CTRL 


B 


\ 





ESC ESC 






1 





INVERSE 


CTRL 





J 


_— _ 


CTRL 


c 


♦ 





ESC CTRL 


UP-ARROM 


R 





INVERSE 


CTRL 


P 


H 
/ 





CTRL 


D 


4 





ESC CTRL 


DOHII 


l-ARROH 


R 





INVERSE 


CTRL 


Q 


__. 


CTRL 


E 


♦ 





ESC CTRL 


LEFT 


-ARROM 







INVERSE 


CTRL 


R 


__. 


CTRL 


F 


■» 





ESC CTRL 


RIGHT-ARROH 


■s 
■s 





INVERSE 


CTRL 


S 


\ 


—— .» 


CTRL 


G 


♦ 





CTRL . 






n 





INVERSE 


CTRL 


T 


A 


__-. 


CTRL 


H 


« 


— 


CTRL ; 






■ 





INVERSE 


CTRL 


U 


^_« 


CTRL 


I 


K 





ESC SHIFT CLEAR 


1 





INVERSE 


CTRL 


V 


1^ 


___ 


CTRL 


J 


i 


— — 


ESC BACK 


S 




ss 





INVERSE 


CTRL 


N 


■ 


_,.— 


CTRL 


K 


► 


— — 


ESC TAB 






■■ 





INVERSE 


CTRL 


X 


■ 


_.,» 


CTRL 


L 


c 





INVERSE 


CTRL 


1 


1 





INVERSE 


CTRL 


Y 


— 


__.. 


CTRL 


H 


i: 





INVERSE 


CTRL 


A 


i: 





INVERSE 


CTRL 


Z 




«._» 


CTRL 


N 


1 





INVERSE 


CTRL 


B 


□ 





ESC DELETE 






___ 


CTRL 





J 





INVERSE 


CTRL 


C 


□ 





ESC INSERT 




4 


— _-. 


CTRL 


P 


:i 


- — 


INVERSE 


CTRL 


D 


B 





ESC CTRL TAB 


<CLR} 


r 


_-.-. 


CTRL 


a 


n 





INVERSE 


CTRL 


E 


B 





ESC SHIFT TAB CSETJ 


_.— 


CTRL 


R 


fA 





INVERSE 


CTRL 


F 


B 





INVERSE 


SPACE 


•f 


_-._ 


CTRL 


5 


^ 





INVERSE 


CTRL 


6 


i 





INVERSE 


_ 




• 





CTRL 


T 


f 


— — 


INVERSE 


CTRL 


H 


□ 





INVERSE 


CTRL 


m 




._-.— 


CTRL 


u 


r 





INVERSE 


CTRL 


I 


n 





INVERSE 


CTRL 


* 
9 


1 


-...-. 


CTRL 


g 


1 





INVERSE 


CTRL 


J 


II 





INVERSE 


1 




T 





CTRL 


H 


k 





INVERSE 


CTRL 


K 


Q 





ESC CTRL 2 




X 


.— — 


CTRL 


X 


J 





INVERSE 


CTRL 


L 





„_ 


ESC CTRL BACK S 


1 





CTRL 


V 












u 


^ 


ESC CTRL INSERT 
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^ Roto-wrench 



continued 



The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor II, 
in issue 47. 



■ 



NIC 



Listing 1. 
BASIC listing. 

180 REM 1^ ROTD-WRENCH 
lie REM ■ JOHN HANLEY 

120 REM ■! SftCTO. Cft 

130 GRAPHICS 17:P0KE 555,0:P0KE 15,64 
140 POKE 53774, 64: GOTO 1000 
150 FOR D=l TO 250:HEXT D : PX=PLftY : PY=5 
160 POKE SCREEH+PK+20*PY,CHfltll)+W 

170 POKE 5C REEH+389,92 

180 REM Bi MAIN LOOP ■■ 

196 IF PEEKtl9J>=20 THEN GOSUB 560 

280 Z=IHT(RN[)C01»L2J : X=PEEK C537703 : IF 

Z<112 THEN GOSUB 310 

210 ST=PEEKC632J ! TX=PX+DX CST3 ! TY=PY+DY 

fST) !P05=SCREEN+TX+20*TY 

220 IF NOT PEEKC6441 THEN GOSUB 660 

230 IF PEEKtPOS)>204 THEN C=C-1 : S=S+10 

SPOSITIOH 10,22:? «6;S:G0T0 270 

248 IF PEEK CPOS) =154 THEN 500 

250 IF PEEKCP0S)=92 THEN 450 

260 IF PEEKCPOS) THEN 190 

270 CHfl=CHACST) :POKE SCREEN+PX+20»PY, O 

.•POKE POS,CHfl + W:PX = TX:PY=TY 

280 IF POS=SCREEN+206 THEN GOSUB 400 

290 IF P0S=SCREEN+212 THEN GOSUB 420 

300 GOTO 190 

310 L=PEEKCSCREEN+PIPEtZ,l)) iPOKE 5376 

0,PIPECZ,21 :POKE 53761,100 

320 IF L=0 THEN POKE SCREEN+PIPE tZ, IJ , 

PIPE(Z,2] :POKE 53761, e:RETURN 

330 IF L=9 OR L=ll THEN POKE SCREEN+PI 

PE(Z,1],8 

348 IF L>=59+M AND L<=62+N THEN 688 

358 POKE 53761, 0:IF X>L1 THEN RETURN 

360 IF Z=51 OR Z=52 THEN RETURN 

370 IF L=9 OR L=ll THEN POKE SCREEN+PI 

PE(Z,1} ,L+196:P0KE 53761, 102 : C=C+1 :IF 

C>L3 THEN 750 

380 RETURN 

390 REM ■■ SLIDE! WM 

400 POKE 53762, 0:FOR TX=6 TO 13:P0KE S 

CREEN+PX+20»PY,0:POKE SCREEN+TX+20»TY, 

CHA(7)+W:P0KE 53763, TX-5 

410 PX=TX:PY=TY:NEXT TX:POKE 53763, 0:P 

OKE SCREEN+212,ll:RETURN 

420 POKE 53762, 0:FOR TX=12 TO 5 STEP - 

l:POKE SCREEN+PX+20»PY,O:POKE SCREEN+T 

X+20»Ty,CHA til) +W: POKE 53763, 13-TX 

430 PX=TX:PY=TY:NEXT TX:POKE 53763, 0:P 

OKE SCREEH+206, 11: RETURN 

440 REM ■■ GET NRENCH WM 
458 POKE SCREEN+PX+20»PY,0:FOR Q=14 TO 
9 STEP -l:FOR W=192 TO 64 STEP -64 
58 POKE 53768, W-64: POKE 53761, 168+0 : P 
OKE P05,CHA+W:PX=TX:PY=TY:NEXT W:NEXT 

0:W=64:G0T0 190 

490 REM Bi VALUES ■■ 

588 IF W064 THEN 190 

518 M=128:U=U+1:P0KE P0S+28,CHA CST) +M: 

UALUE=SCREEN+TX+28«TY ! POKE VALUE, 155 : U 

(U)=UALUE 

520 S=S+50:POSITIOM 18,22:? tt6jS:IF U= 

1 THEN POKE 19,0 

530 FOR X=10 TO STEP -1:F0R Q=10 TO 

20:SOUNI> 0,Q + X,ie,X:NEXT Q:NEXT X 

540 POKE 77,0:T=PEEKC19) :L1=L1-5:IF U= 

3 THEN T=254:X=255: GOSUB 800 

558 GOTO 170 



CP 560 POKE 19,8:L2=L2-CL<168)»18:IF U=8 

THEN RETURN 
Zn 578 POKE UC1J,154:UC1)=VC2) :FOR D=12 T 

8 STEP -1:S0UND 1,D,0,D:NEXT D 
FE 588 U=U-1:L1=L1+5:P0KE 19, 28-T : RETURN 
TJ 598 REM ■■ DEATH WM 
S8 688 POKE 711,148:P0KE 53765,0 
CK 610 FOR D=10 to STEP -0.2!FOR F=0 TO 
128 STEP 128: POKE SCREEN+PIPE CZ, 1) , PI 

PECZ,2)+F:S0UND 0,F,6,D:NEXT F:NEXT D 
OZ 620 IF U=3 THEN GOSUB 920:GOTO ISO 
CW 630 IF PLAY=18 THEN 768 
KM 648 M=128:PLAY=PLAY+l:G0T0 158 
XX 658 REM ■■ ROTO-NARP ■■ 
BR 660 IF ST<>15 OR RW=0 THEN RETURN 
DC 678 FOR R=0 TO 8:F0R D=254 TO 251 STEP 
-l:POKE POS,D:POKE 53760, D:POKE 53761 

,160+R:NEXT d:next R 
BZ 688 POKE P0S,8:Z=INT£RNDC8)K7) :TX=WARP 

(Z,l) :TY=WARP(Z,2) :POS=SCREEN+TX+20«TY 
VJ 690 FOR R=8 TO O STEP -1 : FOR D=251 TO 

254:P0KE POS,D:POKE 53768, D:POKE 53761 

,160+R:NEXT D:NEXT R 
MP 708 POKE P0S,62+W:RW=RW-l: POSITION 10, 

23:? «6;RW: PX=TX:PY=TY: RETURN 

TO 740 REM ■■ GAME OVER ■■ 
F« 758 FOR X=10 TO STEP -1:F0R Q=X TO 8 
STEP -8.5:S0UND 8, PIPE tZ, 2J , 6, Q : NEXT 

Q:NEXT X 
RO 760 POSITION 5,18:? »6;"PH33 ^SHi" 
ZQ 778 FOR D=l TO 4000: IF PEEK C644) =8 THE 

N POP :GOTO 1190 
t» 788 NEXT D:G0T0 1118 
-ND 798 REM ^H BONUS WM 
m 888 Z=INTCRNDC0}»L2} :IF Z<112 THEN COS 

UB 310 
KH 810 POKE 711,INTCRNDC0)»14)+138:T=T-2: 

POKE 53764, TiPOKE 53765, 165:IF T=30 TH 

EN 910 
KO 820 ST=PEEKC632J :TX=PX+DXtSTJ :TY=PY+DY 

CST) ;POS=SCREEN+TX+20»TY 
HM 830 IF PEEK(POS)>204 THEN C=C-1:B=B+10 

:GOTO 860 
MB 840 IF C=8 THEN 918 
KC 858 IF PEEKCPOS) THEN 808 
XF 868 CHA=CHA CST) ; POKE SCREEN+PX+20»PY, 

:POKE P05,CHA+W:PX=TX:PY=TY 
DK 870 IF P0S=SCREEN+2e6 THEN GOSUB 400 
DU 880 IF P0S=SCREEN+212 THEN GOSUB 420 
iK 898 GOTO 800 

900 REM ■■ LEUEL/ADD BONUS ■■ 

910 POKE 711,148:F0R T=50 TO 255 STEP 

5:50UND 2,T,10,5:NEXT T:POKE 53765,8 

928 IF C=8 THEN POSITION 7,10:? tt6;"a] 

BED" ! FOR D=l TO 508 : NEXT DjB=B+280 

938 POSITION 7,10:? tt6 ; " riliTTTTP " 

940 B=CB+10O)»LEU:FOR B=B TO 10 STEP - 

18 ;S=5+18: POSITION 18,22:? tt6;S:NEXT B 

!FOR D=l TO 25e:NEXT D 

950 LEU=LEU+l:POSITION 17,3:? tt6;LEU:R 

H=RM+3: POSITION 10,23:? tt6,-RM 

960 L1=L1+CL1<40)*20:L2=CLEU=2)»225+CL 

EU=3)»2O0+CLEU=4)*175+tLEU>=5)»150 

970 L3=L3+CL3<25)»3 

980 POSITION 7,18:? »6;" '^FOH X=2 

3 TO 35 STEP 6: POKE SCREEN+X, 154 : NEXT 

X : u=e : B= 8 ; T =8 : RETURN 

J 998 REM ■■ INITIALIZE ^H 

M 1800 A=PEEKC186}-8:P0KE 204,A:POKE 206 

,224:P0KE 708,8:POKE 789,36:P0KE 718,2 

2:P0KE 711.148 
IM 1818 DIM C$C20),D$C28),MS$C188),5$C4), 

PIPE cm, 2) , WARP C7, 2) , U C3) , CHA CIS) , DX C 

15),DYC15) 
(IS 1828 FOR 0=8 TO 15 : DX CQ) =8 : DY CQ) =8 : HEX 
111 T Q 

if 1838 DX Cll) =-1 : DX C7) =1 : DY C14) =-1 : DY C13 
•I ) =1 : CHA C7) =59 : CHA C13) =68 : CHA Cll) =61 : CH 
111 A C14) =62 : U CI) =8 : U C2) =8 



PAGE 48 / JULY/AUGUST 1987 



ANALOG COMPUTING 



1040 FOR X=l TO 20:READ B : C$ (X, X} =CHR$ 

CBi :next X 

1050 Q=USRCADR(C$11 :CB = A4(256:F0R Q = 8 T 
O 127:REaD C:POKE Q+CB, C : NEXT Q 
1060 FOR 0=288 TO 231:REAI> C:POKE Q + CB 
,C:HEXT Q:F0R Q=464 to 503:REflD c:poke 
Q+CB,C:HEXT Q 

JV 1070 FOR 1=8 TO llllFOR 0=1 TO 2:READ 
D:PIPECI,Q]=D:NEXT Q:NEXT I 

us 1080 FOR 1=0 TO 7: FOR Q=l TO 2: READ D : 
MARP(I,Q]=D:NEXT Q : NEXT I 

LC 1050 SCREEM=PEEKt88)+256«PEEKC89) 

GK 1100 REM ■■ TITLE/PLAY SCREENS ■■ 

LE 1110 POKE 559,0!? «6 J "IS" 

FK 1128 MSS=' 



6K 
UU 



85 JECEa.HaBHl . 



m Hii3iniHal3Jj 



1130 5$=5TR$C5) !M5SC85,88)=SS 
1140 RESTORE 24O0:FOR Y=7 TO 13:READ D 
SiPOSITION 4,Y!? tt6;D$:NEXT Y 
FJ 1150 POKE 559,34:P0KE 756, A 
W 1160 FOR X=l TO LENCMSSJ -9! POSITION 5, 
»6;M5StX,X+9) 
IF PEEK (644) =e THEN POP .'GOTO 119 



10!? 
CC 1170 


VV 1180 

1160 
JH 1190 

=250 
PM 1280 



FOR D = l TO 20: NEXT D.'NEXT X!G0T0 



POKE 559, : PLAY=16 ! LEV=1 ! Ll=25 : L2 
; L3=10 : RH=5 ! S=0 ! B=0 ! C=0 ! W=128 ! U=0 
RESTORE 2500:FOR Y=0 TO 23!READ D 

$:P05ITI0N 0,Y!? »6;D$!NEXT Y!POKE 764 

,0:POKE 559,34!P0KE 19,0!GOTO 150 
VQ 1900 DATA 104,162,4,160,0,177,205,145, 

203,200,208,249,230,206,230,204,202,28 

8,242,96 
VY 2088 DATA 0,1,7,15,31,31,31,62 
ZW 2010 DATA 0,64,240,248,252,252,252,62 
ZO 2828 DATA 28,62,252,252,252,248,248,64 
GZ 2038 DATA 28,62,31,31,31,15,7,1 
K« 2848 DATA 28,198,255,247,255,255,255,1 

29 
YT 2050 DATA 28,62,31,31,27,31,31,38 
HA 2068 DATA 8,129,255,255,255,247,255,19 

^ J 

UL 2878 DATA 28,62,252,252,236,252,252,68 

QZ 2080 DATA 0,0,255,255,255,255,255,0 

LY 2090 DATA 28,62,255,247,255,255,255,62 

F5 2100 DATA 28,28,28,28,28,28,28,28 

EI 2110 DATA 0,0,223,159,1,159,223,0 

ST 2120 DATA 0,0,247,239,255,255,255,0 

NH 2130 DATA 0,6,251,249,128,249,251,0 

MY 2140 DATA 28,28,24,20,28,28,28,28 

LN 2150 DATA 28,20,62,8,8,62,28,8 

VX 2160 DATA 28,20,62,62,28,0,0,0 

E5 2170 DATA 12,24,17,19,62,112,224,192 

EA 2180 DATA 119,119,119,8,238,238,238,0 

LP 2190 DATA 68,126,242,224,224,244,126,6 

8 
HM 2288 DATA 60,126,255,231,231,239,102,5 

2 
MY 2210 DATA 68,126,79,7,7,47,126,60 
KL 2220 DATA 44,102,247,231,231,255,126,6 


ZH 2300 DATA 26,11,32,11,45,9,47,9,51,9,5 

3,9,62,11,64,11,66,11,72,11,74,11,81,9 

,83,9,85,9,87,9 
PM 2310 DATA 89,9,91,9,93,9,95,9,102,11,1 

04,11,106,11,108,11,110,11,112,11,114, 

11,121,9,123,9,125,9,127,9 
m 2320 DATA 131,9,133,9,135,9,142,11,144 

,11,146,11,152,11,154,11,156,11,161,9, 

163,9,165,9,173,9,175,9,177,9 
GQ 2330 DATA 182,11,184,11,194,11,196,11, 

201,9,283,9,286,11,212,11,215,9,217,9, 

222,11,224,11,234,11,236,11,241,9 
HO 2348 DATA 243,9,245,9,253,9,255,9,257, 

9,262,11,264,11,266,11,272,11,274,11,2 

76,11,281,9,283,9,285,9,287,9,291,9 



2358 DATA»293,9,297,9,302,11,384,11,38 

6,11,308,11,310,11,312,11,321,9,323,9, 

325,9,327,9,329,9,331,9,333,9,337,9 

2368 DATA 342,11,344,11,346,11,352,11, 

354,11,356,11,363,9,365,9,367,9,371,9, 

373,9,375,9,377,9,384,11,386,11 

2378 DATA 392,11,394,11,396,11,415,9,4 

17,9,3,5,9,5,15,5,5,10,13,10,9,15,3,17 

2408 DATA ^■j! ) I "^■i,H! } ;tl }»!)>•■,! ) 

«■$}■})■} tt, iHl^i ) nj^H 

2500 DATA Tn*! 'jTT^') ■y'J",+z+H+ 

+H+ +H+z+,&)c &* u $ * t +zS",+ + 

t +lz+,& » »>» ■ ' »)» XJJC 
2518 DATA + + + 09]+, & « « » 



fic 



; j«i«}« » ■) ■»,+ + +Z+ 

i»J»)»z$)»)» * »" 

2520 DATA + + «EIIlflt + 

& »jcs,+ + smniti 

>» »J"Z!)» »)* tz 

2538 DATA + + +Z+ + 

} «) W} » ») » C ! , + + + 

»)» K Y. *)»J» C+ 
2548 DATA + + + 

" ! * « *J»t,+z+ + +t+ 
■XJX) C &JX)» Y. t+ 
2558 DATA +ZZ+ZZZzS)»ZZZ+ 
B3 88 $))i;ctt, I'M J •Id 5 



+ +,& » 

++,&)» C 
+ +Z,& * 

+Z,& » » « 
+Z+ ++,& » 

++,&J»J» » 
+ ++,+Z$ 

++,SJ)tJHig 



The most useful program for the Atari since Print Shop!*" 



FORMS GENERATOR 

tor the Atari 800, 800XL, 65XE, 130XE 

Designed by Jeff Brenner, columnist for Computer Shopper 
magazine, of "Applying The Atari" fame, and author of book 
and magazine articles in COMPUTE!, ANALOG and others. 
LOOK WHAT YOU CAN DO WITH FORMS 
GENERATOR: Purchase merchandise by mail? Next 
time, send a customized purchase order formi Does 
your home or business ever need statements, in- 
voices, proposals, job work orders, gift certificates, 
etc.? No problem! Use FORMS GENERATOR'S scrolling spreadsheet- 
style screen to design almost any form to suit your exact needs. What 
you see on-screen is what you get on paper! Use the text mode with any 
80-column printer, or the high-res graphics mode with the Epson, 
Gemini/Star, Okidata, Panasonic or Prowriter for remarkably realistic 
forms. BUTTHAT'SJUSTTHE BEGINNING: Once you've designed a 
form, you can program FORMS GENERA TOR to make ail calculations 
automatically! Imagine; after you enter quantities, descriptions and 
prices, FORMS GENERATOR moves about the form calculating ex- 
tended prices, subtotals, and even the sales tax! Lil(e magic! (Sample 
invoices included). You can also use FORMS GENERATOR for record 
keeping, since you can save filled forms to disk! 

Read what our customers have written; "Excellent . . . easy to use and ran perfect(ly) 
,,," T.W. Welhersfield. Connecticut: "\ was most impressed with your FORMS 
GENERATOR program . , ," J.E. King. South Carolina: "Love it!" C.R. Cortland. Ohio. 

Our "down to planet Earth" price Only $23 35 (product #ATA611) 

vmAmMtemAm <tw <?-a& <«•<**? pail witfmetUHOijm): 

1-»9(XJ"*W*WW (ifiw***!* (m 09<jr';W« wss^; Or smfiwugott i>m>ti 

a YES! Please rush me FORMS GENERATOR iprodua 

#ATA611} with complete documentation, 90-day free 
replacement warranty, full customer service support and 
20-page Atari software catalog. I am enclosing $23.95 
+ $2.74 (for first class shipping and handling.) 
nCheck/fvloney Order enclosed DC.O.D. (add$2.50) 
DMaslerCard Q Visa 



Name 

Address 

City 

Card No. 



Send coupon to: 

Tiuenty-Filth 
Centurv"^ 




Softujore Division 
Dept. AT2 

254 Fifth fWenue 

Suite 301 

Neuj Vork. N V 1 000 1 



-Zip 



Signature 



_Exp. Date 
_Phone « _ 



New York State residents add 8% sales tax. 
'The Print Shop and Atari are registered trademarks ol Broderbund Software and Atari 
Corp.. respectively. — Prices and availability subject to change without notice. 
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Now that we're coming up on the eighth 
anniversary of the Atari 400 and 800, we 
can look back and reflect on some of the 
marvelous software we've seen over the 
years. The word processors. The develop- 
ment software. The graphics programs. 
And the games. 

How can the 8-bits be dead with soft- 
ware like this? The current XE series still 
functions as a darned good, inexpensive 
word processing system, telecommunicat- 
ing station, low-end development machine, 
graphics designer and — yes — a dynamite 
games computer 

We asked several key staffers/Atari users 
to list their favorite products in any cate- 
gory, from any year, new or old. The votes 
rolled in for eight different areas: 
Applications 

Databases, spreadsheets, general 
Entertainment 
The games 
Graphics 

One of the 8-bit strongholds 
Languages 

Which are the best? 
Telecommunications 

One of the most oft-used functions 
Word processors 

Another popular use for the Atari 
Miscellaneous 

Software in various categories 
Hardware 

The hackers' favorite products. 



Participants asked for input were; 

Charles Bachand CB 

Ian Chadwick IC 

Michael DesChenes MD 

Charles F. Johnson CFJ 

Arthur Leyenberger AL 

Steve Panak SP 

Lee H. Pappas LHP 

Matthew Ratchff MR 

D.F. Scott DFS 

Clayton Walnum CW 

These "judges" were asked to select their 
favorite products in each area, and to com- 
ment on their selection. The startling fact 
is the number of older products that made 
the list . . . most newcomers to the Atari 
8-bit line won't find many of these software 
packages on the shelves — or even in cur- 
rent softwai-e lists. 

To the more experienced 8-bit user, 
many titles here will bring back (we hope) 
fond memories of days gone by. We had 
to dig deep to recall some of these pro- 
grams, ourselves. 

Our intention is to prove the Atari 8-bit 
line can still live happily on, with what has 
been developed for it over the years. We 
believe that it's still a powerful machine 
which can accomplish nearly anything a 
user asks of it. We hope you enjoy our 
list — and are very interested to see your 
favorites, or to hear opposing opinions. Let 
us know! — LHP 



APPLICATIONS 

Creative Process (Antic/The Catalog) — 
Outline ideas with this program, which 
includes a utility package, undo function 
and compatibility with many word pro- 
cessors. 
"A very nice outline/ idea processor" — JC 

Data Perfect (LJK) — Keep track of any- 
thing, generate reports and do mailing 
lists with this Letter Perfect-compatible 
database. 

"This program has always dona every- 
thing I need a database to do, and done 
it quite well. The report generator is very 
nice." — CFJ 

"This early bird in the 8-bif market still 
fits the bill nicely, thank you." —CW 

Financial Cookbook (Electronic Arts) — 
A large menu of everyday financial func- 
tions is at your fingertips with this pop- 
ular, easy-to-use program. 
"One of the most useful programs you'd 
ever own . . ." — AL 

The Print Shop (Broderbund) — One of 
the blockbuster programs for the Atari was 
this design program, which allowed users 
to customize their own cards, banners, 
posters, or whatever 

"Great for designing cards, posters, me- 
nus and the like." — IC 
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Financial Cooldboolt: 
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Financial Cookbook. 



"Very useful, and easy to learn due to the 
ivell-designed menus." — CFJ 
"This program is undoubtedly one of the 
most popular of all time, on all the 6502- 
based 8-bit machines." —MR 

SynCalc (Broderbund/Synapse) — This 
product interfaces with Synapse's own word 
processor and database. . . a powerful three- 
some at the time, and still in use by thou- 
sands across the land. 

"A remarkably powerful spreadsheet." 
-CF] 

SynFile/SynFile+ (Broderbund/Synapse) 

— Easy-to-use database. 

"The first, and still the only, point-and- 

shoot storage/retrieval database system." 

-DFS 

"Easy to use, and complete. What a great 
combination." — CW 



ENTERTAINMENT 

Astrochase (First Star) — A colorful romp 
through space as you blast away the ene- 
my. . . from the winner of the first Atari 
Star Award. 

"The best shoof-'em-up in this part of the 
Milky Way." —AL 

Ballblazer (Epyx) — A different kind of 
game where you battle it out "on the grid." 
Two players on-screen at once, each with 
their own perspective view. Developed by 
Lucasfilm games division. 
"It's the best two-player game for the 8-bit 
Ataris." —MR 

Blue Max (Broderbund/Synapse) — Pilot 
a WWI biplane over hostile terrain in this 
3D game. 

"A vastly underrated game with an oppos- 
ing force that must be commanded by an 
Al routine." —DFS 

Blue Max 2001 (Broderbund/Synapse) — 
Pilot a WWIII flitter over hostile space 
stuff in this 3D game. 

"A refreshing, imposing sequel that com- 
pliments the original, though not replac- 
ing it." —DFS 

BoulderDash & Super BoulderDash (Elec- 
tronic Arts) — Dig underground while 
avoiding boulders, yet using them to your 
advantage. Diamonds are the goal here. 




Lode Runner. 

Watch out for the amoeba and butterflies. 
"J was terrible at it, but 1 loved watching 
others play it." —CB 
"You gotta love this game. I've played it 
for hours and still find it fresh — even af- 
ter two years." — AL 

"Hypnotic screen movements, wristbust- 
ing close calls and awesome complexity 
make it as good as anything Tve ever play- 
ed in the arcades." — SP 
"Nice graphics, animation, music and 
sound, coupled with excellent game play 
and puzzle solving, make this one of the 
best." —LHP 

"This underground arcade puzzle is so 
realistic, it'll give you dreams." — CW 

Captain Beeble (InHome) — You proba- 
bly don't remember it . . . fly with your jet 
pack . . . pick up the crystals . . . shoot the 
meanies . . . avoid the moving obstacles 
. . .get outta there! 
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"This game was great. Addiction is what 
we're talking here. I pJayed it for weeks 
non-stop. IVever could finish the game." 
— LHP 

Chessmaster 2000 (The Software Tool- 
works) — Nice graphics with more fea- 
tures than you can think of. 
"For the sophisticated, thinking player, 
Chessmaster 2000 offers the best play and 
most options of any computerization of 
I his classic strategy game." — SP 

Colonial Conquest (SSI) — Tmn back the 
clock and try to relive the world of a cen- 
tury ago, while attempting to change his- 
tory. 

"Sort of a coinbination Risk, Diplomacy 
and wargame; this is great either solo or 
with others." — IC 

Defender (Atari) — Rescue the pods, de- 
stroy the many enemies, avoid nearly 
everything — lotsa luck. 
"Would you believe, an improvement over 
(he original (arcade version)? Much bet- 
(er controls, for a better overall game 
feel." —DPS 

Drelbs (Broderbund/Synapse) — What's 
a Drelb? Why it's a small hapless creature 
with one eye. What does he do? He at- 
tempts to save his buddies from the evil 
Trollaboars. Flip the grids and watch out 
for the bad guys. 

"A different game with interesting graph- 
ics. . .was always one of my favorites." 
—LHP 

"This game scores 100 percent for orig- 
inalily — amazing in a world where 95 
percent of the gomes are clones of those 
thai have come be/ore." — CW 




Defender. 



Drol (Broderbund) — Fine graphics and 
sound added to an already fun-to-play 
game made this a favorite. 
"This game didn't receive much attention 
u'hen it was released, but it's great. . . 
ivorth searching for!" — CF] 



Flight Simulator II (subLOGIC) — The 
premier flight simulator and the most 
popular. . .this "game" has it all. 
"The program that wrote the book on 
smooth, adaptable simulators; and the 
Atari has the best 8-bit version." — DFS 

Fortress (SSI) — A chesslike tactical chal- 
lenge; easy to learn — tough to win. 
"A unique strategy game that learns from 
your play and gets better and better; very 
nicely designed and conceived." — IC 

Gruds in Space (Sirius Software) — A text 
and graphics adventure with some anima- 
tion and a real plot. 
"One of the first "animated" graphic ad- 
venture games. I played this one over and 
over." — CB 

Jumpman Junior (Epyx) — Climb the lad- 
ders, go for the points, get away from the 
nasties. 

"The best 'hopping around' game. Miner 
2049er is a close second." — AL 

Kennedy Approach (MicroProse) — Take 
the role of an air traffic controller as you 
monitor one of four major airfields; one 
of the best laid out screens of any game, 
and even the simulated voice of pilots and 
tower. 

"iVIy current favorite (and has been for the 
past year] ... I have played virtually ev- 
ery game that has ever been released for 
the 8-bit. . .and I love this game!" — LHP 

Krazy Shootout (Kbyte) — You patrol a 
simple electrified maze, blasting robots 
(who also shoot back) as you make your 
way towards the exit. 
"Remember this cartridge game? It didn't 
offer the best graphics, it didn't have the 
best sound effects; just one of the most 
fun-to-play games I've seen." — LHP 

Leather Goddesses of Phobos (Infocom) 

— Tame, suggestive or lewd . . .these are 
the three levels of play in this "different" 
text piece of interactive fiction from the 
leader. 

"Sight, sound and smell are ail activated 
in this raucous and rollicking intergalac- 
tic romp. Just don't get caught with it." 

— SP 

Lode Runner (Broderbund) — One lone 
hero must go against the guards of the 
Bimgling Empire to capture the gold, drill 
holes in bricks and solve over 100 screens. 
Championship Lode Runner features an 
additional 50 even tougher screens. 
"A simple game to learn. . .a neai-ly im- 
possible one to master, it's easy to see why 
this has been one of the best-selling com- 
puter games ever, and still ii\'es on in se- 
quels and a version for the Nintendo video 
game." — LHP 




MiG Alley Ace. 

MiG Alley Ace (MicroProse) — Two MiG 
fighter pilots on a split screen, seeking 
each other out. 

"Once upon a time, one of the all-time 
favorites frequently heard echoing in the 
halls of ANALOG Computing" —LHP 

Missile Command (Atari) — One missile 
base must protect three cities from a myr- 
iad of incoming missiles, bombers, killer 
satellites and smart bombs. 
"This was my favorite arcade game back 
in the late 70s, and I've been pia^'ing it 
at least once a week since if was made 
available for the 8-bits." — MD 
"One of the best "blow-'em-up" games 
ever. And well executed on the 8-bif." 

— LHP 

Moon Patrol (Atari) — Drive the moon 
buggy across a perilous surface, avoiding 
craters, rocks and other obstacles. 
"The sound effects, dual horizontal scroll- 
ing backgrounds and playability of this 
game all get very high marks. . .and you 
can continue the game exactly u'here you 
last the last one." — MR 

M.U.L.E. (Electronic Arts) — A game of 
planetary economics, where up to four 
players struggle to develop land and pro- 
duce the necessary commodities to ensure 
the survival of the colony. 
"Simply the best muJtiplayer computer 
game on the Earth for anv computer." 
-AL 

"Talk about addiction! I've spent niore 
hours with this game than any other piece 
of entertainment software." — CW 

Pac-Man (Atari) — The most famous ar- 
cade game — eat the dots, avoid the gob- 
lins, have a great time. 
"Laugh if you want to: I don't care. I've 
never grown tired of munching my way 
through the mazes." — CW 

Pinball Construction Set (Electronic Arts) 

— Very big in its heyday; build an elec- 
tronic pinball game complete with flip- 
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Pole Position. 

pers, bonus scoring markers and bump- 
ers — then play it! 

"Simply (he best single-person computer 
erector set in this part of the galaxy. I Jike 
if a lot." —AL 

Pole Position (Atari) — The ultimate driv- 
ing game, with plenty of action and great 
graphics. 

"If has/as( action, with a high playahili- 
ty factor that requires more true skill than 
dumb luck. And you can actually finish 
this game." — MR 

Poker Tourney (Artworx) — A poker game 
pitting you against five computer players. 
"After /'m done getting blown away in Riv- 
er Raid, I need to play a relaxing game 
of cards to unwind." — MD 

Powerstar (Pandora) — A cartridge-based 
graphics adventure where you must work 
your way up to a space station and stop 
it from exploding! 

"The only graphics adventure to ever 
come out on a cartridge." — CB 

River Raid (Activision) — You know the 
old saying: if it moves, blow it up! If it 
ain't moving, blow it up anyway! Those 
are the instructions for this game. 
"Your typical fast-paced shoof-'em-up. It's 
the fact that I've never reached the end 
that keeps ine playing this old-timer." 
— MD 

Robotron (Atari) — Save this family of the 
future from the onslaught of droves of 
robots. 

"A Robotron 'emulator.' If it makes me 
sweat, it must be good." — DFS 

Seven Cities of Gold (Electronic Arts) — 
A game of exploration where you're the 
first discoverer of America, and it's your 
job to keep peace with the natives and 
make big bucks for the Queen back home. 
"It's very addictive, trying to he a conquis- 
tador, especially when you create new 
worlds." — IC 
"What a masterpiece; this game is fun. 



educational and gasp(.'J thought provok- 
ing, well implemented. You get the idea." 
-AL 

Spy-vs.-Spy (Avantage) — Based on the fa- 
mous characters from Mad magazine. You 
poke around the screen leaving booby- 
traps and searching for the top secret 
plans. Two persons play at the same time 
on separate "windows." 
"[This ganiej and its sequel are the best 
two-player games available." — SP 

Star Raiders (Atari) — Soar through space 
as you gaze out the spacecraft window 
and blast the Zylons into minute pixels. 
"One of the first, and still one of the best, 
this game combines incredible 3D graph- 
ics with arcade action." —CF] 
"The first reason I bought an 800 back in 
'79. . . still holds up after all these years." 
—LHP 

"Wizard of Wor (Roklan) — A fun one- or 
two-player game, where you roam the 
maze, try to kill the wizard and move on 
to a new maze. 

"I've finished all of the levels, but I still 
enjoy this search-and-destroy maze enter- 
tainment." — MD 




Wizard of Wor. 

World Karate Championship (Epyx) — 
From the first punch to the last kick, you 
learn to fine-tune your moves and knock 
"the other guy" silly. 
"I actually like it better than the ST ver- 
sion, because it has a better joystick re- 
sponse." — MR 

GRAPHICS 

Atari Artist (Atari) — This program is 
for use with Atari's Touch Tablet, and is 
a fine cartridge-based product. 
"Originally marketed as MicroIIIustrator 
with the KoalaPad touch tablet, then 
packaged and sold in cartridge form with 
the Atari Touch Tablet. This program set 
new standards in user-friendliness for 
Atari 8-bit graphics softwai'e." — CF] 




Blazing Paddles. 

Blazing Paddles (Baudville) — A nifty 
mini-DEGAS for the 8-bits. 
"I compliment Baudville for releasing a 
fine program when most other companies 
have forgotten the Atari 8-bits." —LHP 

Fun With Art (Epyx) — A cartridge-based 
program with the ability to place text on 
the same screen as graphics. 
"Has all the features that Atari Artist 
lacks, like the ability to put text on the 
graphics screen and change the color pal- 
ette on every TV scan line." — CF/ 

MicroIIIustrator (Koala Technologies) — 
When used with the KoalaPad, you can 

draw with stylus or finger, and produce 
some great images. 

"This is it: the hottest 8-bit drawing pro- 
gram — and you can use a graphics tab- 
let, too!" —CW 

MicroPainter (DataSoft) — A complete, 
joystick-driven computer art program. 
"One of the first Atari drawing programs, 
this product has become a classic." — CW 

Movie Maker (Electronic Arts) — An ani- 
mation and sequencing program — create 
up to 60-second movies. 
"One of the best creative/useful/fun pro- 
grams around. A lot to be learned by us- 
ing this program, especially for a creative 
youngster." — AL 

RAMbrandt (Antic/The Catalog) — A 
drawing/electronic-painting program to 
work with both the joystick and Atari- 
compatible touch tablet. 
"This program does most things you'll 
ever need in graphics (except GR. 8 for 
some unknown reason). It has oodles of 
features and functions." — IC 

Super 3D Plotter H (Elfin Magic) — A 
much advanced version of our popular 
Solid States program; many new features 
make this a nice 3D software package. 
"Its speed and versatility are astounding, 
considering the fact that it runs on a 
'mere' 6502." —MR 

(continued on page 86J 
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Listening to computer-produced speech can be a lot of 
fxin. Programming a computer to talk, on the other hand, 
is not much fun. Speech synthesis is a complicated task, 
and numerous trade-offs are made to produce practical voice 
synthesizers. These exchanges often result in a need for dif- 
ficult programming, which is where a good utility package 
can come to the rescue. Such a package won't remove alJ 
programming problems, but it will minimize them, thus al- 
lowing a prograrmner to produce vocal code much more 
quickly and accurately. 

Talker is a set of utility programs for use with the Cheep 
Talk voice synthesizer by Lee Brilliant, M.D. (see ANALOG 
Computing's issue 29). The first program here creates a de- 
vice handler for the voice synthesizer. This "T: " device al- 
lows output to the voice synthesizer to be accomplished 
internally by Central Input-Output, eliminating the mmier- 
ous DATA, PEEK and POKE statements required in the pro- 
grams of the original Cheep Talk. 

■ The second listing is a string editor, which takes input 
in the form of speech sounds (allophones) and translates 
that input into code to be used by the voice synthesizer. This 
translated code is stored into another string and sent as a 
BASIC listing to a storage device. The BASIC lines can then 
be merged with the programmer's awn BASIC program, 
which will operate to produce vocal output. The string edi- 
tor should have the "T: " device handler loaded into mem- 
ory, although it will work without it. 

The Talker device handler. 

Listing i is the BASIC data used to create your copy of 
the Talker voice synthesizer device handler. Please see M/L 
Editor on page 10 for typing instructions. You should cre- 
ate the file imder the name AUTORUN.SYS. This program 
requires DOS 2.0 or 2.5. 



The Talker device created by Listing 1 is a standard Atari 
device handler. Upon power-up, the AUTORUN.SYS file 
containing the handler will load into memory, and the han- 
dler will initialize itself. This device handler supports the 
fimctions normally available for any output-only device: 
OPEN, CLOSE, PUT and STATUS. The GET statement is 
not supported and will cause an error. There are no spe- 
cial functions for this handler. 

Errors returned by the device handler itself are those list- 
ed in the BASIC reference manual. These may be of three 
types: 

IM^LID COMMAND (error 132) is returned on an 
attempt to OPEN that is not for output only. The de- 
vice handler will accept an attempt to open from BA- 
SIC only in the form of OPEN #1,8,0,"T:" (the choice 
of channel is up to the prograrmner). 

DEVICE TIMEOUT (error 138) is returned if the 
speech synthesizer fails to respond within two-thirds 
of a second to an attempt by the computer to send it 
data. Failure of the voice synthesizer to return to a ready 
status after an output operation will also yield a DE- 
VICE TIMEOUT. The normal cause of this error is a 
loose joystick port plug. 

FUNCTION NOT IMPLEMENTED (error 146) is re- 
turned if a function call is for GET or special functions. 
Cheep Talk is an output-only device, and these func- 
tion calls are not supported. 

The Talker device handler can be addressed as you would 
a printer. Speech data can be sent 1 byte at a time, using 
the PUT statement. The data can also be stored in a string, 
then sent to Cheep Talk using PRINT statements. This al- 
lows speech data to occupy less space in your program — 
and to be sent in blocks, rather than in individual bytes. 
In either case, only the actual data needs to be sent to the 
synthesizer. The device handler performs all the functions 
required to control output of the voice synthesizer. 
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Talker 



To allow proper handling by BASIC of vocal data in 
strings, the quotation mark character (ATASCII 34) cannot 
be contained within the string. The data value 34 is a legal 
allophone value, thus provision must be made to allow its 
storage in data strings. The device handler is programmed 
to recognize the character b (ATASCII 98) as equivalent to 
the quotation mark, and will translate this character before 
sending it to the synthesizer. This substitution prevents the 
truncation of data strings by the BASIC string-handling 
routines. 

Upon a CLOSE command, the device handler will turn 
off the sound output from Cheep Talk. This also ensures 
that an END statement will cause sound output from the 
voice synthesizer to cease. 

The Talker string editor. 
Like the characters in machine language strings, the char- 
acters in speech data strings must be the ATASCII equiv- 
alents of the numeric data to be sent. This encoding of the 
speech data strings is a time-consuming job. The second 
program here (Listings 2 and 3) is designed to automate this 
process. 

Listings 2 and 3 create the Talker string editor. It's writ- 
ten in Atari BASIC, with machine language subroutines. 
Correct typing of the program is critical for proper opera- 
tion. 

Type the Talker string editor program, using the follow- 
ing method. 

Type in Listing 3, using BASIC Editor II (see issue 
47) and run it. This will create a listing of the critical 
decode and machine language lines (under the filename 
MACHINE.LST). Set the disk with this listing aside, in 
a safe place. 
Type in Listing 2, using BASIC Editor II. 
ENTER the listed program lines produced by List- 
ing 3 into the program created from Listing 2 . Be sm-e 
to save this program before running it. 



The Talker string editor should be saved oil the same disk 
as the device handler AUTORUN.SYS file. Boot this file, 
then nm the string editor program. You can use the editor 
without the device handler in memory, but won't be able 
to hear the results of your encoding — which limits the 
editor's effectiveness. 

The first screen is the title screen. You'll be asked if you 
want to review the program. This review will show you the 
grammar symbols used by the editor. 

The editor's grammar is designed to make input of allo- 
phones as similar as possible to writing a normal English 
sentence. The slash (/) is used to separate allophones within 
a word. The space ( ) is used to separate words. It causes 
a 50-millisecond (ms.) pause to be placed between words. 
The comma (,) is used to separate clauses and places a 
longer pause (100 ms.) between words. The period (.) is used 
to end sentences, where it inserts a long pause (200 ms.). 
The semi-colon (;) will continue an allophone input on the 
next input prompt, in the same way as when it's used within 
PRINT statements. 

The Talker string editor uses the BASIC line buffer, which 
is limited to three screen lines. Therefore, long vocal out- 
puts must be input in segments. The vocal string output 
buffer is 240 bytes long, with the remaining free buffer size 
displayed on the input screen. 

Do not overrun this buffer. Doing so will generate an er- 
ror and cause the loss of the present data string input. I do 
not recommend using long output strings, as the editor will 
only allow you to edit three-line input strings. Allophone 
inputs in multiple segments can only be changed by re- 
entering the entire set of strings. 

After reviewing (or bypassing) the grammar screens, you 
will get the set-up screen. This screen will ask you a nurn- 
ber of questions, the first being the filespec for output. In- 
clude the device specification in this answer. 

The next question is what string variable name you wish . 



ANALOG COMPUTING 



JULY/AUGUST 1987 / PAGE 55 




Xd.lk6F continued 



to use for storing vocal strings. The default name is T$. 
Pressing RETURN in response to this question gives you 
the default name, or you can type in your own. This must 
be a legal string-variable name, of twenty characters or less. 

Next, you'll be asked to supply a charmel number (be- 
tween 1 and 5) for your program to use for vocal output. 
This completes the set-up section of the screen, with values 
to be used for all output from the editor. 

You have now reached the actual editor routines. These 
encode the allophone string into a BASIC listing, to be 
merged into your own programs. You'll be asked for the line 
niraiber to be used for the output listing, for each allophone 
line encoded. Keep your line numbers separated from each 
other by at least five. 

The input screen will be displayed after the line number 
is confirmed. This screen shows the entire allophone table 
available for your use, with examples of words including 
that allophone sound. At the bottom of this screen is a five- 
line window for input of your allophone code. Note that hit- 
ting Q allows you to exit the program. 

Type in your allophone code, using the proper grammar. 
Upon completion of input, the string will be encoded (as- 
suming no errors). If it's not a string to be continued (end- 
ed with a semi-colon) and the "T:" device handler is in 
memory, the speech synthesizer will vocalize the string. You 
can repeat this vocal output as many times as desired, to 
confirm that the string is correct. You're then given a choice 
of saving, editing or re-entering this allophone string. 

If you choose to edit the string, the last allophone input 
will be displayed, with the cursor at the begiiming of the 
line. This allows you to make changes in your input and 
listen to the results — without having to enter the entire line. 
Just use the cursor, INSERT and DELETE keys to edit the 
line, as you would to edit a BASIC program line. 

In the event of an input error, the type of error will be 
shown, and the last line entered will be displayed, with the 
location of the error highlighted in inverse video. You'll then 
be given the choice of editing or re-entering the line. 

Next you'll be asked the line number for yoiu' next allo- 
phone input. You must enter a number, even if you wish 
to quit the program — although, in that case, the nimiber will 
never be used. Always exit the program from the allophone 
input screen by typing Q. If you accidentally exit the pro- 
gram, you should type in the immediate mode statement 
GOTO QUIT. This will properly terminate the program and 
prevent loss of output data. 

Using Talker listings. 

The listings produced by the Talker string editor are in- 
tended for use in other BASIC programs. It is the program- 
mer's duty to ensure proper conditions for using these 
listings are met. If you follow the steps below, you can 
write programs that talk. The following conditions must 
be met: 

The "T:" device handler must be in memory. This 
means you must have the device handler AUTGRUN. 
SYS file created by Listing 1 in disk drive 1 on sys- 
tem start-up. 

The string variable used for vocal output must be 
properly dimensioned. Setting the dimension of this 



variable to 240 is always safe, as that's the longest vo- 
cal string the editor is capable of producing. 

The listings produced by the Talker string editor 
must be properly merged into your program. 

Advanced user notes. 

Machine language programmers can call the "T: " de- 
vice handler in the same manner they call the printer han- 
dler. Ensure that, when you OPEN a channel for vocal 
output, the ICAUX byte of the lOCB is set to 8, or an error 
will be generated. If a machine language program is ap- 
pended to the device handler AUTORUN.SYS file, your 
code must perform a Jump-To-Subroutine QSR) to address 
$1DE7, to initialize the handler. If your program "steals" 
the DOS initiahzation vector (address $0C), you must en- 
sure that the code pointed to by this address includes a 
JSR to address $1E23. This will make certain that the de- 
vice handler and DOS are reinitialized on a SYSTEM RE- 
SET. 

Machine language programmers will find the editor of 
less use than will BASIC writers. I suggest changing the 
editor program's Lines 240-270 to PRINT OUTBUF$(l,X] 
to the disk. This will store the vocal strings separated by 
EOL characters (ATASCII 155). Machine language pro- 
grammers can then write a short BASIC program to print 
out these character values. 

Final note. 

The Cheep Talk voice synthesizer is a powerful acces- 
sory for your Atari. Adding the Talker device handler and 
string editor can unleash the synthesizer's full power. 

GG2/UH/DD1 LUAX/KK2. 
(GOOD LUCK). 

I hope you enjoy using these programs. H 

Anthony A. Nogas is a radiological protection and nu- 
clear chemistry technician at the Pilgrim nuclear power 
station in Plymouth, Massachusetts. He spent twelve years 
in the U.S. Navy as an engineering laboratory technician, 
and has his B.F.A. in Theatre from the University o/ Con- 
necticut. Married with two children, he's been program- 
ming Atari computers for over four years. 



The two-letter checksum code preceding the line 
numbers here is not a part of the BASIC program. 
For further information, see the BASIC Editor II in 
issue 47. 



Listing 1. 
M/L Editor data. 



leee data 

5,29,106, 

leie DATA 

,8,240,6, 
1028 DATA 
2,211,169 
1030 DATA 
11,32,211 
1040 DATA 
8,29,173 
1050 DATA 
,29,173,2 
1060 DATA 
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,8,32,224,29,176,219,160,7245 

1078 DATA 138,96,160,1,96,169,0,160,14 

6,96,72,32,218,29,173,0,3943 

1080 DATA 211,16,10,32,224,29,176,246, 

104,169,138,48,18,32,218,29,5111 

1090 DATA 104,201,155,208,2,169,0,41,6 

3,32,158,29,32,196,29,157,3325 

1100 DATA 67,3,168,96,188,67,3,96,72,9 

,64,141,0,211,32,211,4136 

1118 DATA 29,184,141,0,211,96,32,218,2 

9,173,0,211,16,8,32,224,4276 

1120 DATA 29,176,246,169,138,96,32,218 

,29,169,0,32,158,29,173,0,3539 

1130 DATA 211,16,7,32,224,29,176,246,1 

44,233,169,1,96,141,10,212,8277 

1140 DATA 141,10,212,96,169,168,141,24 

,2,96,24,173,24,2,105,128,2634 

use DATA 96,162,0,160,12,189,26,3,281 

,84,248,34,201,0,240,7,5632 

1160 DATA 232,232,232,136,208,239,96,1 

69,84,157,26,3,169,252,157,27,8754 

1170 DATA 3,169,28,157,28,3,169,35,133 

,12,169,30,133,13,169,41,2482 

1188 DATA 133,128,141,231,2,169,38,133 

,129,141,232,2,96,32,231,29,5986 

1190 DATA 76,64,21,8,226,2,227,2,231,2 

9,8,8,8,8,8,0,6573 

1200 REH * 320 BYTES 



Listing 2. 
BASIC listing. 



TALKER STRING EDITOR 



l-bi; A. A. NOG 






REN 
AS 

1 REM Copyright 1985 by ANALOG 400/800 
Corporation. 

10 GOSUB 3010:G0SUB TITLE:GOSUB SETUP: 
? :TRAP QUIT:IF FILE$C1,1J="C" THEN T= 

2095 

20 REM l><:i5«:ill!l:M;»<:iJI» 

30 POKE 764,255:? "LINE NUMBER FOR HEX 

T INPUT"; ; INPUT INBUF$ 

35 IF INBUFS="" THEN ? CHR$ C253) ; "LINE 

NUMBER INPUT REQUIRED .": GOTO 30 
40 IF INBUFSC1,1)<"0" OR INBUFS (1, 1)>" 
9" THEN ? :? CHR$ (253); "ILLEGAL IHPUT- 
try again. ":G0T0 30 

50 LINENUM=UALtINBUF$l :IF LINENUM>3275 
8 THEN ? CHR$ (253}; "LINE NUMBER TOO LA 
RGE-try again. ":GOTO 30 

60 ? :? "YOUR LINE NUMBER IS ";LINENUM 
:? :? "Is that correct?":GOSUB VESNO:l 
F YES=0 THEN GOTO 30 
70 OPEN tt3,12,0,"E:" 

80 REM r=n»t»j!rii;r=TTiiTn 

90 GOSUB SCREEN:? "INPUT ALLDPHONE COD 
E/Q=OUIT. BUF:";240-PEEK(1537) 



THE LOWEST 
PRICES 



THE BEST 
SERVICE 



PHONE LINES 
OPEN 



10-6 E.S.T. 
M-F 



ELECTRONIC ONE* 

CALL r614J 864-9994 • P.O. Box 13428 • COLUMBUS. OHIO 43213 



HARDWARE 

ATARI 800XL 79.99 

ATARI 65XE 89.99 

ATARI 130XE 138.00 

ATARI 1050 DISK DRIVE. , .169.99 

ATARI 1027 PRINTER 99.99 

ATARI XM801 PRINTER . . 179.99 
ATARI XM804 PRINTER . . . 179.99 
ATARI XM DAISY WHEEL . 179.99 

ASTRA (THE ONE) 249.99 

INDUS GT DISK DRIVE . . 189.99 

HARDWARE ACCESSORIES 

ATARI XM301 MODEM 42.99 

SUPRA 300 MODEM 34.99 

RAMBOXL 36.99 

R TIME 8 46.99 

ATARI 8X212 1200 

BAUD MODEM 76.99 

XETECINTERFACE 34.99 

MPP 1 1 50 INTERFACE 42.99 

MICROPRINT 32.99 

USDOUBLER 46.99 

US DOUBLER W/0 DOS ... 26.99 

PRINTERS 

STARNXIO 199.99 

STARNPIO 169.99 

STAR POWER TYPE 169.99 

RDRTIS DM 13010 

(130 CPS) 199.99 

PANASONIC 10801 189.99 

PANASONIC 10911 259.99 



M 



ATARI- 



8 BIT 

HARDWARE ACCESSORIES 

DISKETTES 

CENTECH COLOR 

S/S D/D/ 49« ea. 

BONUS S/SD/D 4.99 

BONUS D/S D/D 5.99 

TDK 3V2" S/S D/D 11.99 

TDK3'/!"D/SD/D 14.99 

JOY STICKS 

ATARI LIKE 4.99 ea. 

ATARI 6.99 

QUICK SHOT 1 4.99 

QUICK SH0T2 6.99 

QUICK SH0T3 8.99 

EPYX500XJ 13.99 

BOSS 1 1 .99 

BAT 15.99 

KRAFT 8.99 

ACCESSORIES 
SURGE PROTECTORS 

PINK YELLOW BLUE 1 4.99 

DISK CASE (60) 7.99 

DISKCASE(120) 9.99 

DISKNOTCHER 3.99 

DISK CASE (10) 2.99 

MOUSE PAD 4.99 



JIlATARI- 

^ I ^ e-BiT 

SOFTWARE 

BALL BLAZER 7.99 

THE EIDOLON 7.99 

RESCUE FRACUL-AS 7.99 

KORONISRIFT 7.99 

STAR RAIDERS 1.99 

DEFENDER 1.99 

E.T 1.99 

QIX 2.99 

ATLANTIS 1.99 

CROSSFIRE 1.99 

BASKETBALL 8.99 

MY FIRST ALPHABET 6.99 

PITBALLII 8.99 

HERO 8.99 

SARGONII 6.99 

RIVER RAID 8.99 

TIMEWISE 2.99 

HOME FILING MAN 2.99 

GYRUSS 4.99 

FROGGER 4.99 

MILLIPEDE 7.99 

GALAXIAN 5.99 

STAR FOOTBALL 9.99 

STAR BASEBALL 9.99 

DONKEY KONG 8.99 

ATARI FOOTBALL 9.99 

PAINT 3.99 

Q-BERT 7.99 

POPEYE 7.99 



JjUTARI- 

^ I ^ 8-BIT 

SOFTWARE 

TOUCHDOWN FOOTBALL . . 1 1 .99 

SAM 12.99 

PRINTSHOP 27.99 

STAR RAIDERS II 12.99 

ARCHON 11.99 

ARCHONII 11.99 

ATARI WRITER 27.99 

ATARI WRITER PLUS ....'. .32.99 

HARDBALL 18.99 

FIGHT NIGHT 18.99 

TOP GUNNER 14.99 

TRAIL BLAZER 19.99 

PAPERCLIP 36.99 

PHANTASIE 22.99 

GUNSLINGER 11.99 

MICRO LEAGUE 

BASEBALL 24.99 

SPY VS SPY 1 & 2 1 1 .99 

LEADER BOARD 24.99 

F15 19.99 

BLUE MAX 2001 11.99 

SYN TREND 6.99 

SYNFILE 29.99 

SYNCALC 29.99 

MACROASSEMBLER 17.99 

ASSEMBLER EDITOR 17.99 

PROOFREADER 12.99 

ONE ON ONE 11.99 

CHESSMASTER2000 24.99 



;i^ 



ATARI- 



ATARI 520ST 

BLACK & 

^yTem 45999 

• MONITOR 

• DISK DRIVE 

• KEYBOARD 
520ST 

^^?e"m 61 999 

• color monitor 299.99 

• blk/wh monitor 129.99 

• keyboard 

disk drive 399.99 

• sgl disk drive 129.99 

• dbl disk drive 199.99 

• 20 MEG 

HARD DRIVE 529.99 

• 1200 BAUD 

MODEM 79.99 

•s?^T^r." 82999 

• 1040 B/W CCQQQ 
SYSTEM DOy^'' 

CALL FOR SOFTWARE TITLES 



HOW TO ORDER: CASHIER CHECK. MONEY ORDER, MASTERCARD" OR VISA" (ADD 4% FOR CHARGE CARDS) ... NO PERSONAL CHECKS ... NO C.O.D.'s . . . SHIPPED 

U.P.S. ... ALL PRICES SUBJECT TO CHANGE WITHOUT NOTICE. 

SHIPPING: ADD $3.00 ON ALL ORDERS UNDER $100.00 . . . ADD $5.00 ON ALL ORDERS OVER $100.00. ACTUAL FREIGHT CHARGED ON MULTIPLE ORDERS. 

INTERNATIONAL: ACTUAL FREIGHT CHARGED ON ALL ORDERS OUTSIDE THE CONTINENTAL UNITED STATES INCLUDING A. P.O. 

POLICIES: NO RETURNS WITHOUT A RETURN AUTHORIZATION ... NO RETURNS UNLESS DEFECTIVE. ALL DEFECTIVES WILL BE EXCHANGED ... NO EXCEPTIONS. 

PLEASE SPECIFY . . . CALL OR WRITE FOR FREE CATALOG 

CALL ELECTRONIC ONE r6I4J 864-9994 OR WRITE 



CIRCLE #114 ON READER SERVICE CARD 
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::;Jfc|p|.. 

:'lHi| 

il 



188 POKE 764,255:ERR=8:INPUT tt3,INBUF$ 

IIF INBUF$="Q" THEN GOTO QUIT 

118 INBUF$ CLEN CINBUF$ J +11 ="»" : K=U5R (AD 

R (HATCH$3 , ADR (ALLOSl , ADR CINBUF$1 , ADR (0 

UTBUF$)):IF PEEKC1536}=1 THEN GOTO 98 

128 IF X>258 THEN GOTO ERROR 

138 Z=PEEKtl28J+PEEKC129J»256;IF Z<>77 

21 AND Z02895 THEN GOTO 188: REM "T:" 

DEVICE NOT PR ESENT 

148 ? "Press ■■TJ;THaw:^Tai to repeat voi 
ce.";? "Press any other key to continu 
e." 

158 OPEN tt2,8,8,"T:":? tt2;0UTBUF$Cl,X) 

!CL05E t>2:P0KE 764,255 

160 IF PEEK C764] =255 THEN GOTO 168 

178 IF PEEKC764)=33 THEN GOTO 158 : REM 

-SPACE BAR 

188 ? :? :? "WHAT MOUL D VO U LIKE TO DO 

?"!IF ERR=8 THEN ? "S-ffiEH UOCAL STRIH 

G." 

198 ? "E-ajHi UOCAL STRING.":? "R-Qaai 

nn^ UOCAL STRING. ":POKE 764j255 

288 y=PEEKC764} :IF Y=255 THEN GOTO 288 

218 IF V=48 THEN POKE 1536, 8: POKE 1537 

,e:GOTO 98: REM RE-ENTER 

228 IF Y=42 THEN GOTO 298:REM EDIT 

238 IF Y<>62 OR ERR=1 THEN POKE 764,25 

5: GOTO 288 

248 FOR V=l TO K STEP 88:Z=Y+79:IF Z>K 

THEN Z=X:REM -SAUE UOCAL STRING 
245 ? ttl;LINENUM;" ";UAR$;:IF Y=l AND 
Z=X THEN GOTO 268 
258 ? ttl;"C";Y; :IF ZOX THEN ? ttl;","; 



YY2-yes LL-like 

-wig *AA-hOt Mh 



^Rllophones With * nai 



z; 

255 ? 
268 ? 
$C34) ; 

265 •* 



ttl;")"; 

ttl; "="; CHR$ C34) ; OUTBUF$ CY, Z) ; CHR 
LINENUM=LINENUM+l:NEXT Y 
ttl;LINEHUM;" IF PEEK (128) +PEEK(1 
29)»256=";T;" then OPEN tt"; CHAN;", 8, 8, 
"; CHR$ (34) ; "T : "; CHR$ (34) ; 
278 ? ttl;":? tt"; CHAN; ";";UAR$;": CLOSE 
tt"; CHAN: CLOSE tt3:PDKE 1537, 8: GOTO 38 
288 REM -EDIT UOCAL STRING 
298 GOSUB SCREEN:? "EDIT ALLOPHONE STR 
ING:":? INBUF$(1,LEN(INBUF$)-1) 
388 POSI TION 2,28:? CHRS (28) ; : GOTO 188 

408 REN J^SMSXEEMESm 

418 Y=PEEK(88)+PEEK(89)»256:IF PEEK(Yt 

2) =52 THEN GOTO 438: REM CHECK FOR SCRE 

EN SCROLLING 

420 G8SUB SCR 

438 Z=USR (ADR (ERASED), Y+48«19) : POKE 82 

, 2 : POSIT ION 2,19;RET URN 

680 REM aansfEiEia 

618 POKE 82,8:? "« TAL KER STRING EDIT 
OR-Copyright 1985.":? " t«fffiffffMr:m 



OPHONE TABLE )))}))})))) 



628 ? CHR$(28);' 
AE-act NG-anger 
oe «AO-SDng OR 
1638 ? " PA3-5eMS 
OM-snow":? " PA4 
own OY-woice" 
648 ? " PA5-288MS 

PP-pow":? " BBl-r 

y SH-Ship" 
658 ? " BB2-best 
SS-best":? " DDl 
nd *TH-thin" 
668 ? " DD2-dO 
UH-bOOk":? " DHl 
ray UU-west" 
678 ? " DH2-bathe 
WH-white":? " ERl 
sit MN-we" 
688 ? " ER2-burn 
XR-pair":? " GGl- 
odge YR-heap" 



PA1-I8ns HHl-hey » 
":? " PA2-38MS HH2-h 
-for" 

KKl-can AR-farn 
188ms KK2-Sky AM-d 

KK3-crane «AX-lapel 
ib NNl-thin AY-Sk 

NN2-no CH-Chip » 
end RRl-read «EH-e 

RR2-brain EL-iH » 
this TTl-papts EY-t 

TT2-tO »FF-fOOd 
-inner UMl-to «IH- 

UM2-food lY-see 
gate YYl-cute JH-d 



698 ? " GG2-green 
ZH-beige":? " GG3- 
Milk ZZ-ZOO" 
788 ? „, 

' nnffanEC€g<";pQKE 82. 2: return 

IBB 8 REM U*<li«.iii!lWan 
1818 ? "« iHBHHH* TALKER STRING EDIT8R 
iHHHHHt";? :? ;? "For use with the TAL 
KER DEUICE" 

1828 ? "HANDLER by A. A. Nogas and the 
";? "CHEEP TALK woice synthesizer by" 
1838 ? "Lee Brilliant M.D..":? :? :? " 

copyright 1986 by" 
1848 ? "ANALOG COMPUTING MAGAZINE" : RET 

URN 

11288 REM [H!H!lif=l!MJti7T3irMI 
1218 ? "rUHtiHi TALKER RESERVED CHARACTE 
iRS iHBW":? :? "The characters listed b 
ielow are" 

1228 ? "recognized by the TALKER STRIN 
G":? "EDITOR and perforM the following 
";? "functions:" 

1238 ? :? "1. Slash Separates allop 

|hones":POKE 85,14:? "within a word." 

,1248 ? "2. Space Separates words-in 

'serts a":POKE 85,14:? "58 ms pause." 
1258 ? "3.CoHMa Separates clauses- 
inserts": POKE 85,14:? "a 188 MS pause. 



GRAMMAR SCREEN 2 



EH 

m 



11268 ? "4. Period Ends sentences-ins 

erts a":P8KE 85,14:? "288 ms pause." 
1278 ? "5.SeMicolon-Indicates allophon 
e":POKE 85,14:? "string is to be" 
1288 POKE 85,14:? "continued-siMi lar t 

iio":PeKE 85,14:? "its usage in print":P 

lOKE 85,14:? "stateMents." 

11298 RETURJL 

11488 REM 

U418 ? "If Using the reserved character 

Iset will":? "allow you to encode a voi 
ce string in" 

^1428 ? "a way that is siMilar to writi 

Ing a";? "nornal sentence." 

11438 ? :? "The TALKER STRING EDITOR cr 

Jeates":? "output coMHand lines for you 

IP prograM" 

:1448 ? "that operate like LPRINT state 

iMents";? "to a printer. It is not nece 
ssary to" 
1458 ? "end a voice stPing with a pepi 

lod. The":? "pepiod is Mandatopy fop se 

intences" 

U468 ? "that end within the stPing.":? 
:? "NOTE: The coMputep's text buffep 

is" 

1478 ? "liMited. Do tTTni type MOPe th 
an":? "thpee scpeen lines of code when 

asked" 
1488 ? "to input the allophones. Use t 
he ;":? "opepatop to continue the stpi 

ing on" 

1498 ? "t he next input ppoMpt.": RETURN 
1688 REM M^^IIJiMlkrfrra 

1618 P8SITI0N 2,16:G0SUB NAIT : ? "IfDO Y 
OU NANT TO REVIEW THE PROGRAM?" : GOSUB 

, YESNO 

1628 IF YES=1 THEN GOSUB GRANMARl : GOSU 
B WAIT: GOSUB GRAMMAR2 : GOSUB WAIT 
1638 ? "ifSETUP FOR VOCAL STRING OUTPUT 

■ 11 

l648 ? :? "PLACE A DIS K IN DRIV E" 

658 GBSUB WAIT:? :? "■IBDCHia-INCLUD 
c DEUICE AND DEUICE":? "NUMBER IN FILE 
SPEC.";? 

1668 ? "WHAT IS THE FILESPEC 18 BE USE 
D FOR":? "OUTPUT OF YOUR CODE"; 
1678 POKE 764,255:TRAP 1688:INPUT FILE 
S:8PEN ttl,8,8,FILE$:G0T0 1718 
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1680 ERR=PEEK{19 5> ;? CHRS C255i ; ; IF ERR 
=165 THEM ? :? "■*<lj;r=1!M^!lj».jiM" 
1698 IF ERR0165 THEN ? !? " ■JiHiliM -PL 
EASE CORRECT AND RE-ENTER":? "FILE5PEC 
. ERROR NUMBER IS ■■;ERR;"." 
1788 CLOSE ttl:TRAP 48088:6070 1668 
1718 TRAP 48888 :ERR=8:? :? "NHAT STRIN 
G UARIABLE NAME DO VOU HANT":? "TO USE 

IN YOUR PROGRAM CPRESS QIS!I3D" 
1715 ? "FOR DEFAULT NAME) ";: INPUT INBU 
F$:IF INBUF$="" THEN ? "DEFAULT UAR . N 
AHE J$ CHOSEN.": GOTO 1750 
1728 V=LEN(INBUF$} :IF INBUF$ CI, 1)<"A" 
OR INBUF$C1,1J>"Z" OR INBUF$ (Y) <>"$" T 
HEN ERR=1 

1738 IF ERR=1 THEM ? CHR$ C253] ; "NOT A 
LEGAL STRING VARIABLE:":? : GOTO 1718 
1748 UAR$=INBUF$ 

1758 TRAP 1798:? :? "TO WHICH CHANNEL 
SHOULD THE VOCAL":? "OUTPUT BE DIRECTE 
D"; : INPUT CHAN 

1760 CHAN=INTCCHAN) :IF CHAN>=1 AND CHA 
M<=5 THEN RETURN 

1778 ? :IF CHAN<8 THEM ? "CHANNELS 8,6 
, AND 7 ARE RESERVED FOR THE COMPUTER 
'5 USE." 
1788 ? "PLEASE USE A CHANNEL BETWEEN 1 

AND 5.":G8T0 1758 
1798 ? CHR$C253); "ILLEGAL INPUT-try ag 
ain.";TRA P 4eeB8;G0T0 1788 

1888 REM EUBccHaniaa 

1818 ? :? "Press Y for yes or N for no 
.":POKE 764,255 



1820 IF PEEK C764> =255 THEN 1828 
11838 IF PEEKC764)=43 THEM YES=1:RETURN 

:REM -YES 
11840 IF PEEKC764]=35 THEM YES=8: RETURN 

:rem -no 

1858 GOTO 182 8 

2888 REM 



WAIT ROUTINE-Checks for kG' 



2816 ? :? "Press any key to continue." 

:P0KE 764,255 

2020 IF PEEK (7641=255 THEN 2828 

2838 RETURN 

2288 REM l=<!»;M;MrI.lH*rra 

2218 ERR=l:? CHR$(253); :IF K=512 THEN 
GOTO 2258 

2228 IF X=768 THEN GOTO 2268 
2238 IF X0256 THEN ? 
aa":GOTO QUIT 
2240 GOSUB SCREEN:? "| 
MISSING! 



PROGRAM FAILUR 



[iniEIH-DELIMITER 



!G0T0 2278 

2258 GOSUB SCREEN:? "Omiilia-ILLEGAL A 

LLOPHONE:":GOTO 2278 

2268 GOSUB SCREEN:? " ■Jil.-TiU -OUTPMT BU 

FFER OVERFLOW:" 

2278 ? INBUF$C1,LENCINBUF$)-1} :POKE 76 

4, 255 : GOT O 188 

2488 REM MIHaJrMrirm 

2418 CLOS E »l; CLOSE »2; CLOSE 1*3 : END 

3888 REM K:n*n>»/;^iiii;M!Mim;i j 

3818 DIM INBUF$ (128) . OUTBUF$ (2481 , VAR$ 
(281 , ALLO$ (1601 , FILES (281 : VAR$="T$" 
3820 DIM MATCH$ (4081, ERASE$ (301 
3038 SCREEN=4ie:SCR=618:TITLE=1818:GRA 



ATARI USERS' GROUPS 



Pasadena Area Local Atari Computer Enthusiasts (PALACE) 
220 N. Encinitas, Monrovia, CA 91016 
Meetings; BBS; newsletter 

Pikes Peek Poke Atari Computer Enthusiasts (A3ACE) 
RO. Box 9282, Colorado Springs, CO 80935 
Meetings; newsletter. President: Eric Kowalski. 

Gainesville Atari Group (GAG) 

6733-B SW 5th Place, Gainesville, FL 32607-1706 
Meetings; newsletter President: Darin L. Delegal. 

Mid-Florida Atari Computer Club (MFACC) 

887 Benchwood Drive, Winter Springs, FL 32708-5114 
Meetings; newsletter President: Craig L. Kaplan. 

Wells Atari Computer Owners (WACO) 

505 Meadow Lane, Bluffton, IN 46714 

Meetings; BBS; newsletter President: James Davis. 

Capital Hill Atari Owner's Society (CHAOS) 
RO. Box 16132, Lansing, Ml 48901 
Meetings; BBS; newsletter President: Leo Sell. 

Long Island Atari Computer Enthusiasts (LIACE) 
PO. Box 382, Bellport, NY 11713 
Meetings; newsletter President: Mike Ferrara. 



Atari Computer Enthusiasts (ACE) 

3662 Vine Maple Drive, Eugene, OR 97404 
Meetings; PD library; BBS; newsletter 
President: Kirt Stockwell. 

White Rose Atari Computer Enthusiasts (WRACE) 
2413 Carllyn Drive, York, PA 17403 
Meetings; BBS. 

West Texas Atari Users' Group (WTAUG) 

8215 Goodnight Trail, Amarillo, TX 79110 
Meetings. President: Pete Coombes, 

San Angelo Atari Computer Enthusiasts (SAACE) 
RO. Box 60993, San Angelo, TX 76906 
Meetings; newsletter: HardcopyH 
President: Joanne C. Miller 

Milwaukee Area Atari Users Group (MIL-ATARI) 
PO. Box 19858, West Allis, Wl 53219-0858 
Meetings; BBS. 

Nanaimo Atari User Group 

3326 Rock City Road #113 

Nanaimo, British Columbia, V9T 3H6, Canada 

President: Andy Barclay. 

Merserside Atari Club (MAC) 
24, Oakdene Rd., Liverpool 
Merseyside, England L4 2SR, U.K. 
ST Group; contact Mike Lynch. 



ATTENTION USERS' GROUPS 

If you would like your organization to be listed here, send information (and newsletter, if appropriate) to ANALOG Computing 
Group Listing, PO. Box 23, Worcester MA 01603. ANALOG Computing is not responsible for errors In copy 
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- COMPUTER CREATIONS ^ 

YOUR ATARI 8-BIT SUPPORT GEMTER 



ACCESS 




KYAN 




Leaderboard Golf 


26 


Kyan Pascal 


49 


Tournament Disk 


14 


System Utilities 


34 


Triple Pack 


14 


Atari Advance 


34 


ACCOLADE 




LANCE HAFFNER 




Hardball 


20 


3 In 1 Football 


27 


Fight Night 


20 


MICROLEAGUE 




ARTWORX 




Baseball 


26 


Bridge 4.0 


16 


General Manager 


26 


compubridge 


16 


Team Player Disk 


14 


strip Poker 


20 


MICROPROSE 




Female Disk 


14 


Silent Service 


27 


ATARI 




F-15 Strike Eagle 


23 


Atarlwriter Plus 


35 


Kennedy Approach 


23 


Proofreader 


12 


Conflict In Vietnam 


26 


Star Raiders II 


13 


Crusade in Europe 


26 


Silent Butler 


19 


Top Gunner 


17 


Planetarium 


17 


MINDSCAPB 




BRODERBUND 




Bob 'N' Wrestling 


20 


Prlntshop 


29 


OSS 




Prlntshop Companion 


26 


Action 


47 


Prlntshop Graph. 




Action Tool Kit 


19 


Library 1,2,3 


17 


Basic XL 


38 


Syncalc (130XE) 


33 


Basic XL Tool Kit 


19 


Synflle+ 


33 


Dos XL 


19 


Syncalc Template 


15 


Basic XE 


47 


Syntrend 


25 


Mac 65 


47 


DATASOFT 




Mac 65 Tool Kit 


19 


Alternate Reality 


18 SUBLOGIC ... 




Mind Pursuit 


12 


Flight Simulator II 


37 


Mercenary 


20 


Scenery-San Fran. 


15 


Never Ending Story 


12 


Scenery- Japan 


15 


Crosscheck 


20 


Scenery 11 thru »6 


15 


Theatre Europe 


22 SUPRA 




221 B Baker St. 


20 


MPP 1150 


39 


Guns linger 


20 


Microprint 


29 


FIREBIRD 




X-LENT 




Pawn 


29 


Typesetter 


22 


Mach 2 


17 


Rubber Stamp 


19 


HAPPY 




Page Designer 


19 


Happy Enhancement 


99 


Hegafont II 


17 






P.S. Interface 


19 


ICD 




First X-lent Word 








Processor 


19 


Printer Connection 


39 


Miniature Golf + 


19 


U.S. Doubler w/o 








Spartados 


29 






U.S. Doubler w/ 




CALL 




Spartados 


49 




Rambo X/L 


29 






Sparta Dos Con- 




FOR 




struction Set 


29 






R-Time 8 


49 


HARDWARE 




P:R: Connection 


59 







PRICES 



To order call TOLL FREE 

1-800-824-7506 



IRDER LINE ONLY 



P.O. BOX 493 - DAYTON, OHIO 45459 hB 

For information, order inquiries, or for Ohio orders (513) 435-^868 
Order Lines Open9a.m to 9 p.m Mon.-Fri. 10 am Io4 p.m Sal. (Eastefn Standard Time) Minimum $15 per 
ortter COD (add S3 00) Please specify computer system Call lolltree number to verity prices and availability 
of product Prices and availability are subiecl to change wittxMJl notice We ship C D to Continental U S 
xMresses only* Please include 4% shipping on all Hardware oidersfmin S4 00) Software and accessories add 
$3 00 shippit^ and handling in Continental US Actual freigtil will be charged outside U S to include Canada. 
Alaska. Hawaii. Puerto Rko and APO Ohio residents add 6% sales tax Canadian orders 5% shipping. (Min 
S5 00) All other foreign orders, please add 15% shipping. (Mm $tO) For immediate delivery send cashier's 
check, money order or direct bank transfers Personal and company checks allow 3 weeks to clear School 
purchase orders welcome Due lo our tow prices, all sales are final NO CREOITS AH defective returns must 
have a return authorization number Ptease call (513) 435-6B66 lo obtain an RA# or your return will no) be 
accepted for replacement or repair circle #i25 on reader service card 



n Talker continued 



4448B253D34E4EB24848B24FD241D259D24747 
B245CC4242B28e, 4935 
IJ leeS DATA 2298333130302840415443482428 
312C3738293D2268A2e66895CACADBFAAI>06e6 

FeicA9eeA2e29Dj 3522 

MHAR1=1210 : GRAMMAR2=14ie ; SETUP=16ie : YE 

5N0=18ie:MAIT=2eie 
9J 3848 ERR0R=22ie:C)UIT=24ie:T=7721 
EL 3858 REM -NACHINE LANGUAGE & DECODE ST 

RINGS BELOM 
i,G 3868 REH -ALLOPHDNE DECODE STRING 
Ml 3158 POKE ADR(MATCH$)+239,34:REM -PLAC 

E QUOTATION MARK INTO STRING 
DV 3168 REM -MINDDM ERASE MACHINE CODE 
XL 3188 DUTBUF$=CHR$(8) :0UTBUF$C24e}=CHR$ 

CO} :0UTBUF$C21=0UTBUF$:P0KE 1536,8:RET 

URN 

XM 9999 REM kf;T:<J!».-ti!»:rr«J>>nn71 -bU A. A. 

NOGAS 



Listing 3. 
BASIC listing. 



KX 8 REM TALKER STRING EDITOR DECODE AND 
MACHINE LANGUAGE LISTER-by A. A. NOGAS 

m 1 REM Copi^right 1986. 

J4 18 SUM=8:LINE=8:CHAR=1:DIM DATUM$C88), 
HEK$C2J,DATS(758J :? "^CHECKING DATA LI 
NES:":? "Please stand by." 

FM 28 READ DATUM$:IF DATUM$="X" THEN GOTO 

XO 38 READ CKSUM:FDR 1=1 TO LENCDATUMS) S 

TEP 2:HEXS=DATUM$(I,I+1J :G05UB 128 
jBO 48 SUM=5UM+BYTE! SOUND 8, BYTE, 18, 8 : DAT$ 

(CHAR) =CHR$ (BYTEl : CHAR=CHAR+1 : NEXT I 
JU 58 SOUND 8,e,8,8:IF SUM=CKSUM THEN SUM 

=0:LINE=LINE+1:G0T0 28 
AZ: 68 ? ;? "ERROR IN DATA LINE ";LINE+ie8 

8:? "Please check your typing. ":END 
XX 78 ? :? "INSERT A FORMATTED DISKETTE": 

? "IN DISK DRIUE ttl . " ; ? "Press any key 
to continue. ":POKE 764,255 
TI 88 IF PEEK (7641 =255 THEN GOTO 88 
no 90 OPEN ttl,8,e,"D:MACHINE.LST" 
CL 188 ? "^CREATING MACHINE LANGUAGE":? " 

LISTING FILE.":? "Please stand by." 
VM 118 ? ttl;DAT$: :CL8SE ttl: END 
VH 128 A=ASC(HEXl;Cl,l]]-48:IF A>9 THEN A= 

fl-7 
FD 138 BYTE=A»16:A=ASCCHEX$(2,2]]-48:IF A 

>9 THEN A=A-7 
rP 140 BYTE=BYTE+A: RETURN 
VB 158 REM MACHINE LANGUAGE DATA BELOW 
HT 1888 DATA 333837382e414C4C4F2428312C38 

31293D225e41B15841B25841B35841B45841B5 

4FD941D945C84B,3482 
PC 1681 DATA 4BB358De4AC84E4EB149C85454B2 

5252B141D84DCD5454B14448B149D945D94444 

B15557B141CF41,4989 
CC 1882 DATA C15959B241C54848B14242B154C8 

55C85557B2229B3338383828414C4C4F242838 

322C31363e.293D, 3559 
BO 1883 DATA 2241D74444B24747B356D64747B1 

53C85AC85252B246C64B4BB24B4BB15ADA4EC7 

4CCC57D758D257,4958 
JK 1884 DATA C85959B143C84552B14552B24FD7 
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JK 1606 DATA ee06E8EeieDeF8AE8ie68Ee2869D 

ie66E8EeF8DeF8F8e78A9De8e6E8DeFAa9ee8D 

e5e68D84e68D88,4455 
VO 1087 DATA e68D89e68D8A86ACe386A288BlCD 

C92eFe33C9229B3331313e2e4D415443482428 

37392C31353429, 2979 
PZ 1988 DATA 3D222CF82FC92EFe2BC92FF827C9 

3BFe23C92AFeiFEe83Fee89De886E8C838BeDA 

AC8686BlCDe98e,4763 
UR 1089 DATA 91CDA2e886D4E886D568B8B18De7 

e6C88C8386A9e88D8Ce68DeD868DeEe6A288AC 

84e6BlCF38229B,4883 
HF 1018 DATA 333132382e4D4154434824283135 

352C323338293D22889D8C86E8C838B8F4297F 

9l>eC86C88Ce4e6,2939 
XU 1011 DATA ADe886CD8Ce6Dei3AD8986CD8D86 

D0eBAD8A86CDeEeeD88338Be21EEe586ADe5e6 

C941F88338B8B3,3511 
HL 1012 DATA AC8686BlCDe98e91CDA28e86D4E8 

E886D568229B3331333e284D41544348242832 

33312033383629,3717 
EC 1013 DATA 3D22B896AEe2e6ADe586C92eD8e2 

8948C948D8e338B88B9D1886EEe286E8E8F8Fe 

3CAD8786C92FDe,4e85 
RJI 1814 DATA 8338B829C92eD8e8A9e29D188638 

B015C92CD888A9e39Diee638B889C92ED82EA9 

e49D1886EE229B,3661 
EC 1015 DATA 33313438284D415443482428333e 

37293D228286E8EeF8Fe89ADe3868D868638B8 

A4ACe686BlCDe9,3222 
VH 1816 DATA 8891CDC8CC8386D8F4A28e86D4A2 

838eD56eC93BD8898E8186A9818D8e866eA98e 

9Die868D888685,4126 
ZW 1017 DATA D5E886D4A4D488B9188691CBC88a 

DeF66e229B33313738284552415345243D2268 

6885CC6885CBA9,4677 
NX 1818 DATA e8A891CBC8DeFB8556A9828555A9 

138554682298,2473 
BG 1819 DATA X 



.NORD NOFUNC-1 ;GET NOT IMP 
.NORD PUT-1 
.NORD 5TATU5-1 
.NORD NOFUNC-1 
JMP INIT 



Listing 4. 
Assembly listing. 

j"T!" DEVICE HANDLER FOR "CHEEP 

A. NOGAS 
ANALOG CORP. 



TALK" BV ANTHONY 

;Copyright 1985 bi^ 



; SYSTEM 


EQUATES 


DOSINI 


— 


$ec 


LOMEM 


— 


$80 


CLOCK 


~ 


$8218 


RUNUEC 


— 


$e2E8 


MEMLO 


— 


$e2E7 


HATABS 


— 


$e3iA 


lOCB 


— 


$8348 


D0S5T 


— 


$1548 


PORTA 


— 


$D388 


PACTL 


— 


$D382 


NSYNC 


™ 


$D48A 


; ERROR 


CODES 


RETUR 


INUCON 


~ 


132 


TIMOUT 


— 


138 


NOTINP 


— 


146 



;DOS INIT VECTOR 
;L0 MEN POINTER 
;SDFTMARE TIMER 1 
;RUN VECTOR 
;0.S. LO MEM PNTR 
; HANDLER TABLE 
;I/0 CNTRL BLOCKS 
;DOS INIT 

; joystick ports 
;port controller 
;nait horiz sync 



; INVALID COMMAND 
; DEVICE TIMEOUT 
;N0 FUNCTION IMP 



;"T:" DEVICE HANDLER STARTS HERE 

»= $1CFC 
VECTAB .NORD OPEN-1 

.MORD CLOSE-1 



;OPEN ROUTINE STARTS 


HERE 


OPEN 


LDA 


IOCB+18, 


X ;GET CNND CODE 




CMP 


tt8 


; OUTPUT ONLY? 




BEQ 


0PEN2 


;YES, PERFORM OPEN 




JSR 


CLOSE 


;N0, ABORT OPEN 




LDY 


ttlNVCOM 


; SIGNAL INVALID 




RTS 




; RETURN ERROR 


DPEN2 


LDA 


PACTL 


;GET PORT CONTROL 




AND 


tt251 


; SETUP TO PROGRAM 




f 




DATA LINES 




STA 


PACTL 






LDA 


ttl27 






STA 


PORTA 






JSR 


PIADLY 


;GIVE PIA TIME 




f 




TO RESPOND 




LDA 


PACTL 


; RESTORE PORT 




; 




CONTROL REGISTER 




ORA 


tt4 






STA 


PACTL 


; PORTA RESTORED 




JSR 


PIADLY 


;GIVE PIA TIME 




JSR 


DEVCHK 


; CHECK RESPONSE 




TAV 




; RETURN STATUS 




RTS 






;CLDSE 


ROUTINE STARTS 


HERE 


CLOSE 


LDA 


no 


; SIGNAL SILENCE 




JSR 


PUT 






JSR 


SETCLK 


;SET TIMEOUT CNTR 


CLLOOP 


LDA 


PACTL 


;GET PORT CNTRL 




AND 


tt251 


;data lines 




STA 


PACTL 






LDA 


»8 


;SET FOR input 




STA 


PORTA 






JSR 


PIADLY 


;GIVE PIA TIME 




LDA 


PACTL 






ORA 


tt4 


J RESET PORT CNTRL 




STA 


PACTL 


; PORTA RESTORED 




JSR 


PIADLY 


;GIVE PIA TIME 




LDA 


PORTA 






BPL 


CLSAT 


; CLOSE SUCCESSFUL 




JSR 


CKCLK 


; CHECK IF TIMEOUT 




BCS 


CLLOOP 


;NOT CLOSED 




LDY 


ttTIMDUT 


; ERROR TIMEOUT 




RTS 




; RETURN ERROR 


CLSAT 


LDY 


ttl 


;FLAG SUCCESS 




RTS 




; RETURN STATUS 


;GET AND SPECIAL ROUTINES NOT 


;IMPLIMENTED- 


-ROUTINE 


STARTS HERE 


NOFUNC 


LDA 


no 






LDY 


ttNOTIMP 


;N0 FUNCTION 




RTS 




{RETURN ERROR 


;PUT ROUTINE 


STARTS HERE 


PUT 


PHA 




iSAVE OUTPUT DATA 




JSR 


SETCLK 


;SET TIMEOUT 


PUT2 


LDA 


PORTA 


{DEVICE READY? 




BPL 


OUT 


{BRANCH IF READY 




JSR 


CKCLK 


{CHECK IF TIMEOUT 




BCS 


PUT2 


{CONTINUE 




PLA 




{CLEAR STACK 




LDA 


ttTIMOUT 


{SET ERROR CODE 




BNI 


SETSTA 


{SET ERROR CODE 


OUT 


JSR 


SETCLK 


{SET TIMER 




PLA 




{GET DATA 




CMP 


ttiss 


{IS IT EOL? 




BNE 


0UT2 


{NO, SEND DATA 




LDA 


UQ 


{YES, SO SILENCE 


0UT2 


AND 


tt63 


{CONVERT TO 6-BIT 




JSR 


SEND 


{SEND DATA 




JSR 


DCHK3 


{CHECK RESPONSE 


SETSTA 


STA 


I0CB+3,X 


; STORE STATUS 
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STA BUFIN,X 

INX ; UPDATE COUNTERS 

INY 

SEC 

BCS LOOPS 



;FLAG BRANCH 
;ALMAYS TAKEN 



INX 




INX 


;2=ILLEGAL ALLO 


STX ERRFG 


;SET ERROR CODE 


RTS 





; ERROR — INPUT BUFFER OVERFLOH 
ERRl LDY OLDAL ; GET POINTER 
LDA CINVEC),Y ;FIRST CHAR 
ORA »128 ; CONVERT 
STA CINVEC),Y ; STORE BACK 
LDX tta ; CLEAR F.P. 



;PASS BRANCH BACK TO GET2 
GET3 BCS GET2 

; PERFORM ANY TRANSLATION 

STORE LDX OUTOFF 

LDA ENCODE ; GET CODE COUNTER 
CMP tt34 ; ASCII QUOTATION? 
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TflY 
RTS 

■ 

JSTATUS ROUTINE STARTS HERE 
STATUS LDY I0CB+3,X ;GET STATUS 

; OF LAST OPERATION 



MEH 



RTS 



! RETURN STATUS 



STA DOSINI 
LDA ttlNIT/ZSe 
STA DOSINI+1 

LDA ttFINISH&$FF ; RESET LO MEN 
STA LOHEM 
STA MEMLO 



[21 Talker continued 



STDRE2 



STORES 



BNE 
ORA 
CHP 
BNE 
SEC 
BCS 
STA 
INC 
INK 
CPX 
BEQ 



ST0RE2 ;N0, NULL MATCH? 

»64 ; CONVERT TO "b" 

tt64 

ST0RE3 ; STORE ALLO CODE 

DLOUT ;N0 OUTPUT 
BUFOUT,X ;CODED ALLO 

OUTOFF ; UPDATE BUF PNTR 

tt$Fe ; BUFFER OUERFLON? 

ERR3 ;G0 ERROR ROUTINE 



MOUBUF 



STA CONTFG ; 
STA ERRFG } 
INK ; 

STK FRO ; 
LDY FR0 ; 
DEY ; 

LDA BUFOUT,Y 
STA COUTUEC), 
CPY tte ; 
BNE MOUBUF 
RTS 
.END 



CLEAR FLAG 
CLEAR ERRORS 
CONUERT OFFSET 
STORE LENGTH 
GET COUNT 
UPDATE POINTER 
;GET DATA 
Y ;PUT INTO STR 
ARE HE DONE? 



; PERFORM DELIMITER FUNCTIONS 


}H = OFFSET INTO OUTPUT BUFFER 


DLOUT 


LDA DELIM 
CMP ttSLASH 
BNE DL0UT2 
SEC 


; RECOVER DELIMITR 


■ 


BCS LPBK2 




; CHECK 


FOR SPACE 




DL0UT2 


CMP ttSPACE 
BNE DL0UT3 






LDA }t2 


;5e MS Silence 




STA BUFOUT, 


X 




SEC 






BCS LPBK 




; CHECK 


FOR COMMA 




DL0UT3 


CMP ttCOMMA 
BNE DL0UT4 






LDA tt3 


;iea ms silence 




STA BUFOUT, 


X 




SEC 




t 


BCS LPBK 




; CHECK 


FOR PERIOD 




DL0UT4 


CMP ttPERIOD 
BNE DL0UT5 






LDA tt4 


;2ee ns silence 


■ 


STA BUFOUT, 


X 


; RETURN 


FOR NXT ALLOPHONE ROUTINE 


LPBK 


INC OUTOFF 
INK 


;MOUE OUTPUT PNTR 




CPX tt$Fe 


; BUFFER OVERFLON? 




BEQ ERR3 




LPBK2 


LDA INOFF 






STA DLDAL 


; ERROR OFFSET 




SEC 






BCS GET3 




; ERROR 


~ OUTPUT BUF 


DUERFLOH 


ERR3 


LDY OLDAL 




LOOP? 


LDA CINUEO 
ORA ttl28 


,v 




STA CINUECI 


,Y 




INY 






CPY INOFF 


;ARE ME DONE? 




BNE LOOP? 


;N0, CONTINUE 




LDX »0 


;F.P. REGISTER 




STX FRO 






LDX «3 


i ERROR CODE 




STX ERRFG 






RTS 




; CONTINUATION OF DELIMITER FUNC 


; CHECK 


FOR SEMICOLON 




DL0UT5 


CMP ItSEMI 
BNE DL0UT6 






STX OLDLEN 


;SET BUFF POINTER 




LDA ttl 






STA CONTFG 


;FLG CONTINUATION 




RTS 





Listing 6. 
Assembly listing. 



MINDOW ERASE - STRING EDITOR 
Copyright 1985 



ERASE ROUTINE STARTS HERE 

«= SEoee 

PLA 
PLA 

STA $CC 
PLA 
STA $CB 

LDA no 

TAY 



;num. of arcs 
;hi byte hindoh 
;store zero page 
jlo byte nindoh 



LOOP 



; CLEAR CHARACTER 
;SET COUNTER 



STA C$CB1,Y ; CLEAR NINDOM 



;UPDATE COUNTER 
;IF NOT DONE 



INY 

BNE LOOP 
; CLEAR NEXT SCREEN LOCATION 

STA $56 ;SET CURSOR LOC 

LDA tt2 

STA $55 

LDA ttl9 

STA $54 

RTS 



; DELIMITER MUST BE » CEOLJ 
DL0UT6 LDA ttO 

STA BUFOUT, X JlO HS Silence 



WANT 

TO 

SUBSCRIBE? 



It's worth it. 



CALL TOLL FREE 
1-800-345-8112 
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Panak 
strikes! 



Reviews of the latest 
soflrvare 



by Steve Panak 



The amount and quality of software 
available for Atari computers is simply 
amazing. 

Take a look at your favorite dealer's ti- 
tles. At least four baseball games. . .three 
football games. . .two karate games. . . 
not to mention the vast fantasy collection. 
Infocom's library has expanded beyond 
my wildest expectations, and Electronic 
Arts continues to pump out hits. Only ar- 
cade games dwindle in number (for- 
tunately, those that survive do so due to 
superior quality). 

The result of this explosion is that the 
overall quality of games has increased 
dramatically in the past year. There's less 
junk, less chance of being rudely ripped 
off. And the large selection makes it less 
likely dealers will have to push bad stuff. 
They have enough of the good. The mar- 
ket has become so diverisfied that virtu- 
ally anyone, regardless of how truly bland 
or totally bizarre their tastes may be, can 
find exactly what they want. As demon- 
strated by this month's games. 

Warship 

and 

Battle Cruiser 

by Gary Grigsby 

SSI 

1046 North Rengstorff Avenue 

Mountain View, CA 94043 

48K Disic $59.95 each 




These two games 
demonstrate specializa 
tion better than any oth- 
ers I could find. Written 
ten by Gary Grisby, they de- 
fine a whole new — and pos 
sibly undesirable — dimension 
in software. Though I doubt 
that even the most rabid war 
simulation enthusiast will want 
both of these games, I'm certain 
the fanatic who knows just what he 
wants won't be disappointed. 

Both take place on the high seas. War- 
ship covering combat in the Pacific Ocean 
during 1941-1945, Battle Cruiser taking 
place in the Atlantic during both world 
wars. Realistically, the only practical dif- 
ference between the two is in the nations 
represented. 

These advanced-level games offer an in- 
credible number of variables, resulting in 
simulations so real you can smell the salty 
sea air and hear the missiles sailing past 
your ear. But, although advanced in lev- 
el, these games are designed to be sim- 
ple to play. They follow identical menu 
structures which allow you to easily in- 
itiate and then control the simulation. The 
first step is setting up — you choose the 



number of players (0-2), handicaps (five 
settings), message delay (length of time 
messages are displayed) and scenario. 
Of course, you can choose to join a pre- 
viously stored game already in progress. 
Allowing for a fair degree of customi- 
zation, you are permitted to construct 
scenarios, in addition to using those 
included in each package (four in 
Warship, eight in Cruiser). In set- 
ting up a scenario, you have de- 
sign control over the map used and 
general game conditions, such as time 
and date (controlling visibility and avail- 
ability of certain war technology, respec- 
tively). Length, type and size of battle, as 
well as a fog factor and repair ability, can 
be preset. Finally, you're given full con- 
trol over the design of ships — type and 
strength of armor and armament, speed 
and seaworthiness, and starting positions. 
After deployment, it's off to war. 

Once battle has begun, unlike many of 
their SSI predecessors, these two games 
force you to keep track of only two phases: 
the Order and the Action Phase. In a fur- 
ther simplification, you issue your orders 
only from the former. If you've ever played 
one of SSI's earlier games, you'll appreci- 
ate having to work with only one phase. 
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Pressing O at any time stops the action 
and moves you into the Order Phase, 
which is also entered automatically after 
two minutes. You control on one of two 
levels, by division or by ship. From the 
main "Map" menu, you choose divisions, 
then ships to view and order. Each order 
or function is performed via the keyboard, 
and on-screen prompts ease the learning 
of those key controls. Still, I would have 
liked to control the action with the joy- 
stick, an option which could have easily 
been supported. 

The screen displays your ships and the 
surrounding terrain — most often, open 
sea. Message lines and ship/division data 
appear on the bottom of the screen. The 
graphics were rather spartan and miat- 
tractive, although messages were easy to 
read. In fact, the most striking similarity 
of these games is in their nearly identi- 
cal screen displays. 

Of course, the resemblance of the two 
is also apparent when you compare the 
manuals. Except for slight differences, 
portions of documentation covering game 
design and control are virtually identical. 
I mean, page for page. As for ship data, 
Warship contains 79 ships, while Cruis- 
er contains 158 (79 for each world war). 
There's enough similarity between ships 
(identical ships are used, with identical 
— although reversed — historical illustra- 
tions) to consider Warship a "subset" of 
Cruiser It's a natural assumption, con- 
sidering that the former takes place only 
during World War I, while the latter en- 
compasses both wars. 

I was also slightly disturbed by the fact 
that some ships (which appeared in both 
games and were identical in many 
respects: name, type and illustration) had 
different simulation values — such as ar- 
mor, armaments and, most disturbing, the 
availability of radar. This brings to light 
another shift in SSI simulations apparent 
here: less basis in historical fact. While 
previous SSI manuals have often includ- 
ed vast sections full of background infor- 
mation, these games contain little to no 
Iiistorical data. Really, only the ships and 
the passages on each scenario seem even 
remotely tied to fact. 

The manuals are organized to teach the 
complex games quickly and easily, with 
ample tables and charts. In fact, it's not 
tlie difficulty of play which makes these 
games advanced in level, but the degree 
of realism supported. Numerous passages 
in the manuals detail the calculations and 
modifications applied to determine move- 
ment, firepower and damage. Studying 



these sections will put you on the bridge, 
in full control of these ships — ready to 
issue orders with confidence and ease, 
and with complete knowledge of the im- 
plications of each command. But which 
ships to conmiand? 

This brings me to a dilemma. Why two 
games? Only one is necessary. Since the 
only notable difference is in the ships, 
why not make ship disks available? Costs 
would be lower — and, at sixty bucks a 
game, there's room to shave prices. There 
seems little point in getting both games, 
especially when you remember that each 
lets you create scenarios of your own. 
Don't get me wrong: both are good 
games, with only a few rough spots. It just 
seems somewhat deceptive to issue them 
as two separate games without warning 
of their similarity. 

So, for those war buffs who feel ready 
to tackle some advanced-level simulation. 
Warship or Battle Cruiser should fill your 
order. I say "or" because the similarities 
make it likely that a purchaser of both 
would surely feel slighted. But, even at 
sixty bucks, either of these offerings is 
quite a performer. 

Solid Gold Software 

by David Crane & Rob Fulop 

ACTIVISION 

P.O. Box 7287 

Mountain View, CA 94039 

48K Disl< $14.95 

It's been a long time since I've had an 
arcade game. It's a dying breed, a fad 
which our population (attention spans 
reduced by Mtv] quickly tired of. It's 
been even longer since I heard of these par- 
ticular programs. But, in the arcade peak, 
Pitfall and Demon Attack were very popu- 
lar games; I'd just never played them. Be- 
fore booting them up, I had to ask myself: 
could these artifacts survive today; and 
what is Activision doing, pumping out 
this old schlock? 

What Activision is doing is supplying 
the market with yet another alternative. 
Unfortunately, it's an alternative I'd rath- 
er not take. For, when these two came out, 
little was required to make a game suc- 
cessful. Colorful, fast-moving graphics 
was all we needed to satisfy an action 
itch. While keeping this ancient tradition, 
these games offer little more. In Pitfall, 
Pitfall Harry must find his way through 
the jungle, avoiding obstacles and pick- 
ing up treasures for points. In Demon At- 
tack, you're stranded on an ice planet, 
blasting demons as they fall toward you 
from the sky. 




Pitfall. 

In each game, one or two may play, us- 
ing one or two sticks. These games look 
like direct translations from the old 2600 
cartridge-based games of eons ago. The 
graphics are boxy, although quite color- 
ful. Pitfall seemed to cycle through the 
same screens, the same conflicts, endless- 
ly. Jumping over rolling logs, running over 
alligators, swinging over pits on a vine — 
over and over and over. It got old real fast. 

Demon Attack, on the other hand, was 
slightly better. You move left and right 
across the bottom of the screen, while the 
demons circle above you, dropping sear- 
ing streams of plasma energy. Get touched 
by a stream, and it's all over. Demon At- 
tack also offers ten play options, combin- 
ing one or two players with tracer shots 
(which can be controlled after they leave 
your cannon, like guided missiles). Two 
modes allow the two players to alternate 
control of the same cannon. 

Still, the games are little more than un- 
enhanced reincarnations of their former 
selves. They're bare bones, lacking even 
the most rudimentary of features, like a 
pause key. So don't even ask for a high- 
game-save feature. To further raise frus- 
tration levels, you can't leave one game 
for the other without rebooting. This im- 
plies that very little effort was put forth 
for the reissue. Even the sparse manual 
betrays the simplicity of the games. 

So, overall, I cannot recommend Solid 
Gold Software. Its games were dated and 
boring, even in view of the low price. 
And, while they were inarguably great at 
original issue, they're now more at home 
in a museum than in your software li- 
brary. Let's just let these old games rest 
in peace. H 
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BBK 
Artist 



A graphics 7+ graphic arts program. 



by Barry Kolbe and Bryan Schappel 



By now most everyone has heard of ANTICS mode $0E. 
This is commonly referred to as mode 7+. In this display 
mode, you can make four-color pictures with a screen reso- 
lution of 160x192. Granted, this is no ST — but you can make 
some pretty intricate drawings in this mode. (Just look at 
Alternate Reality sometime.) 

Now, unless you have an XL or XE, you can't access this 
mode directly from BASIC. And who would want to make 
a work of art with a program of PLOT and DRAWTO state- 
ments? This is where the BBK Artist comes in. 

Fondly known as BKA, this program contains a menu 
screen with twenty-five cormnands, twenty-one of which 
are used to help create computer art. You can load in a 
screen previously created with Microlllustrator, Micro- 
Painter or Magniprint. You can create boxes, lines, circles/ 
ellipses, rays, plot text on the screen in any character set 
you design (in any size you desire), and touch up your paint- 
ing with our "Enlarge" mode. This is a feature-packed offer- 
ing. Let's continue! 

The entire program is joystick operated, using as little 
keyboard input as possible. Just move the cursor over the 
option you want and press the button. What could be 
simpler? 

Typing It In. 

Listing 1 is the BASIC data used to create the BBKART. 
COM file on your disk. Please refer to the M/L Editor on 
page 10, for instructions on keying in the data. Once the 
typing has been done, refer to your DOS manual for instruc- 
tions on loading a binary file. You must have the BASIC car- 
tridge disabled to allow BKA to function properly. (On XL 
or XE computers, press and hold down the OPTION key 
while booting your system.) 

As soon as you binary load the BBKART.COM file, you're 
ready to go! 



You're presented first with the main menu of the program. 
To select a command, just move the cursor over the option 
you want and press the fire button. 

The drawing commands. 
Draw mode (Draw). 

This simply allows you to perform "freehand" drawing, 
in yoxn- cm-rent brush and fill pattern. You can roam freely 
about the screen by moving the stick in the direction de- 
sired. To draw, simply hold the fire button down and move 
the stick. 

The following commands are what are known as "Rub- 
berband" mode commands. In this mode, you must first 
move the ciu-sor to the screen position at which you want 
an endpoint (in the case of circles/ellipses, it's the center) 
and press fire. Then the image you are working with can 
be expanded or contracted on-screen without destroying 
the already formed underlying graphics. When the image 
is what you want, press fire again to make it permenant. 

A note of caution: if you don't want a line to appear where 
you're currently drawing one, press OPTION. The command 
will abort, and you'll return to the main menu — no harm 
done. Once a rubberband object is made "solid," it can't be 
undone. 

Lines (Line). 

Using the stick, you will move a rubberband line around 
on the screen. The final line is drawn from the starting point 
to the current cursor position. When the line is just right, 
press fire to make it permanent. 

Circles/Ellipses (Circle). 

After selecting the center position for a circle/ellipse, the 
crosshairs you've been seeing will disappear. Move the stick 
to expand the size of the ellipse. After you've made the el- 
lipse solid, the cursor reappears at the middle of the screen. 

Boxes (Box). 

This will create a rubberband box. Select the position 
of one corner of the box and move the stick. The box can 
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be stretched in any direction, and pressing fire makes it 
permanent. 

Rubberband Rays (Rays). 

Rays are almost the same as Lines, except that they all 
share the same starting point. This function is useful in 
producing a circular starburst. Just press OPTION to return 
to the main menu. 

Screen enlargement. 

Enlarge or Magnify (Nlarge). 

This is one of the nicer commands in the BKA. It allows 
you to view and change your work on a screen, with each 
pixel blown up to a graphics-0-size character. The screen 
is divided into two sections. The top contains an actual- 
size view of what's currently blown up on the bottom of the 
screen. 

You're free to move the cursor anywhere on-screen and 
draw just as you did in the Draw mode. But, when you push 
on one of the screen's edges, the screen will scroll. You may 
think of Nlarge as being a window made of a magnifying 
glass that you can move over your picture. 

Naturally, the reaJ-size view of your picture scrolls also, 
but as you move from the left to the right of your picture, 
the real-size window will jump along the top of the screen, 
giving you a relative "feel" for where you are along the X- 
axis of your picture. When you enter this mode, you're in 
the upper left corner of your picture. 

Putting text on your screens. 

The text commands are quite powerful. They allow you 
put text on your screens, in any fill pattern, in any size, 
in any font, anywhere.' 

Text Parameters (Farms). 

This allows you to set the parameters for the text-plotting 
routines. First, you type in your text, twenty characters 
maximum — all characters are acceptable, except DELETE 
and RETURN. Next, you select the rotation of the text. Move 
the stick in the direction you want the text to be drawn, 
and hit fire. Finally, use the stick to determine the height 
and width of each plotted character. These numbers can be 
set between 4 and 99. After this, you're returned to the main 
menu. 

Plot text (Text). 

Using this command, you can plot the message defined 
with Farms. Move the cursor to the location where you want 
the lower left-hand comer of the first character to be, then 
press fire. The text will be drawm in youj current fill pat- 
tern — and only the character will be plotted, thus leaving 
the backgroimd intact. Because of this feature, it's quite easy 
to produce special effects, such as shadowed text. 

To shadow text, make a large box filled with a light col- 
or, then plot the message in black. Next, select a different 
color (say, red) and plot the text slightly to the upper right 
of the black text. You have shadowed text — instantly. Look 
out, DEGAS! 

Hint Ml. At the bottom of the draw screens is a line that 
tells you the X,Y-coordinates of the cursor, the pattern mmi- 
ber you're working with and which reflection mode you're 
in. When you plot the black text, write down the X,Y- 
coordinates, then use these numbers as a reference for plot- 
ting the next layer of text. 



HINT #2. To center or block right text, all you need is 
a calculator. Take the length of your string and multiply it 
by the width of your characters; this yields exactly how long 
the plotted string will be. Now subtract this number from 
159. To center the text, divide the remainder by 2. Now, just 
move the cursor to the calculated X-coordinate and hit fire. 
Voiid, centered text. To block to the right, you just don't di- 
vide by 2. Use the same procedure to center text vertically 
— multiply by the height and subtract from 191. 

Load a new font (Font). 

This lets you load in any 1024-byte character set. (These 
sets can be designed using issue 16's Create-A-Font or one 
of the COMPUTE! editors.) The program will give you a 
directory of aJJ the files on the disk with a .FNT extension. 
To load a font (or any file) into BKA, follow the instruc- 
tions in the next section. 

Loading flies. 

The load screen is composed of two parts: the directory 
screen and the load menu. First, get the file you want to 
load on the directory screen, by using the "More" option 
of the menu. When the name's on-screen, select the "Load" 
option from the menu. At this point, the first filename in 
the directory screen is highlighted; you may move this "cur- 
sor" to the filename you want to load, by using the joystick. 
When the name of the file to be loaded is highlighted, just 
press fire. The load will commence, and you'll be returned 
to the main menu. 

If the file you want to load isn't on this particular disk, 
select the "Exit" option to return to the main menu. 

If you selected Load by accident, there are two ways to 
abort: (1) press OPTION; and (2) move the cursor either to 
a blank line or to the "Free Sectors" line, and hit fire. 
Filling screen areas. 

Fill (Fill). 

When you select Fill, you enter the drawing screen. Move 
the cvirsor to any point within the area you want to fill and 
hit fire. The program will begin to fill over the area you 
selected. The fill routine is good at going arovmd corners 
and finding "leaks" in your drawing. However, you may run 
into a few problems. 

Problem #1. If you try to fill an entirely blank screen from 
the center, the fill will start to expand— then suddenly stop. 
This is because the routine ran into too many "critical 
points." To continue the fill, move the cursor to another 
blank portion and hit fire again. Another way aroimd this 
problem: start the fill from a corner. 

Problem #2. If the fill pattern you're using contains one 
of the colors you're filling over, the fill may also stop. (This 
usually occurs when your fill pattern is striped.) Again, to 
solve this problem, start the fill elsewhere. 

Problem #3. You'll find it impossible to fill over a fill pat- 
tern. This is because the BKA fills over any color — until 
it hits another color. At best, you will plot one point this 
way. 

Choosing a Fill Pattem/Textiu-e (Txture). 

BKA contains seventeen fill patterns: four solid colors, 
twelve quilts and one user-definable pattern. When the 
Txtirre box is clicked, the main menu dims and a wedge- 
shaped cursor at the bottom of the screen lights up. Move 
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this ciirsor over the pattern you want to use and press fire. 
You'll be returned to the main menu. 

Defining a Texture (DefTxt). 

This lets you define your own fill pattern. The user- 
defined pattern is to the far right of the screen (its default 
is vertical blue bars). After clicking this box, you're asked 
to enter the pattern data. Type four numbers (0 through 3) 
and hit RETURN. If all goes well, the user pattern is rede- 
fined on the menu screen. The foiir numbers are the color 
registers used to plot the pattern. 

Here's an example: at the prompt, type 1122. When you 
return to the screen, the last pattern will be made of alter- 
nating yellow and green horizontal stripes. To make the 
stripes vertical, you would enter 1212. To make it a yellow 
and green quilt, type 1221. Experiment a little. 

Setting reflection modes. 

Toggle Horizontal Reflection (Horz). 

When you click on this box, a small arrow appears next 
to "Horz," indicating that this reflection mode is on. It re- 
flects each point plotted about the Y-axis. All of the reflec- 
tion modes work with text, lines, circles, etc. 

To turn off a reflection mode, click it again or select an- 
other reflection mode. 

Toggle Vertical Reflection (Vert). 

Selecting this mode reflects each pixel written to the 
screen about the X-axis. This gives interesting effects. Text 
is plotted as a mirror image, looking much like the reflec- 
tion of trees in a lake. Try it. 

Toggle Four-way Reflection (Four). 

This mode reflects every point into each of the four quad- 
rants of the screen. When used with text, you get undesir- 
able results. Try it to find out why. 

Extras. 

Selecting a Brush (Brush). 

BKA contains eight different "brushes" you can paint 
with. When you click this box, the brush line will light up. 
Move the black cursor until it's over the brush you want, 
and press fire. You'll return to the main menu. 

Changing a color (SetClr). 

There are two steps to changing a color. First, you must 
choose a register to change, by moving the cursor over the 
"Color #" and pressing fire. Now, move the stick up or down 
to change liiminance, and right or left to change hue. Press 
the fire button when the color you want is reached. 

Erasing your work (Erase). 

When you click this, you're transferred to another screen 
that asks if you're sure. If you click the yes half of the 
prompt, your picture is erased. Otherwise, nothing happens. 

Oops (Undo). 

You accidentally said yes to an erase, or you filled some- 
thing you shouldn't have. Well, just Undo it. When you click 
this, your last action is undone. There's one exception, of 
course. Any rubberband object, once made solid, can't be 
undone. If you don't like a rubberband object, press OP- 
TION to abort. 

Let's take a look (View). 

This lets you look at your beautiful art. It's used to see 
what an Undo did — if you don't like the picture after the 



Undo, simply Undo it. To return to the menu, press the fire 
button again. 

Rainbow effects (Rainbw). 

This will "rainbow" the last changed color register, in all 
256 glorious colors. If you haven't changed a color, Rain- 
bow will work on the background color. To Rainbow an- 
other color, use SetColor to select a color register, and hit 
fire twice. 

Picture I/O. 

Saving your work (Save). 

All you do here is supply a name and hit RETURN. The 
picture will be saved in compacted MicroIUustrator format 
with a .PIC extension. Be careful; you aren't asked if you 
want to replace a file that already exists on the disk. 

Loading a MicroIUustrator picture (Koala). 

This will give you a directory of all the files on the disk 
with a .PIC extension. Follow the instructions xmder Font 
to load a file. You use this command to load a file saved 
with BKA, too. 

Loading a MicroPainter picture (Micro). 

This works the same way Koala does, except you get a 
directory of all files with a .MIC extension. 

Loading a Magniprint picture (Magni). 

This option was put in for a friend of mine (it also fills 
the menu) , but it lets you load a picture from a Magniprint 
disk— or any graphics 7+ or 8 picture saved from BASIC 
with the SCSAVE.LST file on the Magniprint disk. An ex- 
tension of .MP is used for Magniprint files. 

That sums up the commands . . . Let's take some notes. 
Words to the wise. 

Note 1. It would be a good idea to type in the Picture 
Storage Techniques program from ANALOG Computing's 
issue 50. This allows you to use pictures generated with 
BKA in your own programs. 

Note 2. When you're in any drawing mode, you can use 
the arrow keys to finely move the cursor to a specific screen 
position. This affords you maximum control over the cur- 
sor, though it is slow. 

Note 3. When drawing on the screen, press SELECT to 
change the intensity of the cursor. This is useful if you're 
drawing over a light backgroimd. 

Note 4. Pressing TAB while either in Nlarge or on the 
Draw screen changes your current fill pattern to the next 
in line. After you pass number 16, you're returned to 0. 

Note 5. When setting text parameters, it's a good idea to 
keep these things in mind: if you set the height/width of 
a character below 8, some pixels are "knocked out." When 
the numbers are above 8, some of the characters' definitions 
are repeated, making the characters a little chunky. Use 
Nlarge to touch them up. Setting the height/width to 8 gives 
you graphics-1-size characters; setting the height to 16 and 
width to 8 yields graphics-2-size characters. 

Note 6. The text routine can plot oJJ characters, includ- 
ing inverse and control characters. If you don't load in a spe- 
cial font of your own, the standard ROM set is used. 

You will notice that, when you enter text, what you're 
typing is appearing in your character set — but the prompt 
is in the ROM set. 

Note 7. The circle/ellipse routine has one limitation: the 



ANALOG COMPUTING 



JULY/AUGUST 1987 / PAGE 69 



ft BBK Artist 



continued 



radius of your circle/ellipse must be less than 63. This isn't 
so bad, seeing as an ellipse that big almost fills the screen! 
Well folks, that's all. I can't think of anything I left out. 
And if I did forget something, I'll see you in Reader com- 
ment. Happy drawing! PI 

Barry KoJbe is a mathematics teacher in Madison, WI. 
He uses the Atari to demonstrate graphing in his classroom. 
His former student, Bryan SchappeJ, is studying Computer 
Science at the University of Wisconsin. 



Listing 1. 
M/L Editor data. 



1008 DftTA 255,255,48,42,199,75,76,22,6 

8,0,6,14,28,56,112,96,9416 

leie DATA 0,0,96,112,56,28,14,6,0,0,24 

,24,231,24,24,0,6591 

1020 DATA 0,0,0,0,60,60,60,0,0,0,24,24 

,24,24,24,0,3660 

1030 DATA 0,0,0,0,24,0,0,0,0,0,0,0,219 

6 8 B 3997 
1040' DATA 0,0,16,62,126,62,16,0,0,81,8 
2,82,82,82,82,82,9902 

1050 DATA 82,82,82,82,82,82,82,82,82,8 
2,82,82,82,82,82,82,2202 
1060 DATA 82,82,82,82,82,82,82,82,82,8 
2,82,82,82,82,82,82,2212 
1070 DATA 69,124,128,128,128,128,128,1 
28,128,128,128,128,128,128,180,232,855 
1080 DATA 229,128,162,162,171,128,161, 
242,244,233,243,244,128,128,128,128,49 
36 

1090 DATA 128,128,128,128,128,128,128, 
128,124,124,128,128,226,249,154,128,17 
80 

1100 DATA 162,225,242,242,249,128,171, 
239,236,226,229,128,225,238,228,128,86 
92 

1110 DATA 162,242,249,225,238,128,179, 
227,232,225,240,240,229,236,128,128,85 
37 

1120 DATA 124,90,82,82,82,82,82,82,82, 
82,82,82,82,82,82,82,2330 
1130 DATA 82,82,82,82,82,82,82,82,82,8 
2,82,82,82,82,82,82,2282 
1140 DATA 82,82,82,82,82,82,82,82,67,8 
6,36,114,97,119,0,0,246 

1150 DATA 6,5,46,108,97,114,103,101,6, 
5,44,105,110,101,0,0,9126 
1160 DATA 6,5,35,105,114,99,108,101,6, 
5,34,111,120,0,0,0,7799 
1170 DATA 66,86,48,97,114,109,115,0,6, 
5,52,101,120,116,0,0,9041 
1180 DATA 6,5,38,111,110,116,0,0,6,5,3 
8,105,108,108,0,0,7698 

1190 DATA 6,5,50,97,121,115,0,0,66,86, 
40,111,114,122,0,0,9455 

1200 DATA 6,5,54,101,114,116,0,0,6,5,3 
8,111,117,114,0,0,8019 

1210 DATA 6,5,52,120,116,117,114,101,6 
,5,36,101,102,52,120,116,2172 
1220 DATA 66,86,34,114,117,115,104,0,6 
,5,51,101,116,35,108,114,1338 
1230 DATA 6,5,37,114,97,115,101,0,6,5, 
53,110,100,111,0,0,8556 

1240 DATA 6,5,54,105,101,119,0,0,66,86 
,50,97,105,110,98,119,2504 
1250 DATA 6,5,51,97,118,101,0,0,6,5,43 
,111,97,108,97,0,9140 

1260 DATA 6,5,45,105,99,114,111,0,6,5, 
45,97,103,110,105,0,4 



1270 DATA 66,86,0,72,0,6,5,0,73,0,6,5, 

0,74,0,6,3782 

1280 DATA 5,0,13,0,6,5,0,70,0,6,5,0,71 

,0,6,5,3152 

1290 DATA 0,76,0,6,5,0,75,0,66,86,163, 

239,236,239,242,128,223 

1300 DATA 148,128,6,5,35,111,108,111,1 

14,0,16,0,6,5,35,111,7878 

1310 DATA 108,111,114,0,17,0,6,5,35,11 

1,108,111,114,0,18,0,7846 

1320 DATA 66,86,0,40,117,101,0,34,108, 

97,99,107,0,0,0,0,7496 

1330 DATA 16,16,0,0,0,6,5,0,0,0,44,117 

,109,105,110,97,9426 

1340 DATA 110,99,101,0,16,16,0,0,66,0, 

0,5,85,85,170,170,346 

1350 DATA 175,255,255,86,0,0,36,101,10 

2,105,110,101,0,52,101,120,2757 

1360 DATA 116,45,111,100,101,0,48,97,1 

14,97,109,101,116,101,114,115,4795 

1370 DATA 0,0,66,86,36,105,114,26,0,0, 

0,0,0,6,5,40,4527 

1380 DATA 103,116,26,0,16,24,0,6,5,55, 

100,116,26,0,16,24,6114 

1390 DATA 0,0,66,0,0,0,0,56,26,0,16,16 

,16,0,0,57,3758 

1400 DATA 26,0,16,16,16,0,0,48,52,46,2 

6,0,16,16,0,0,3648 

1410 DATA 50,37,38,44,26,0,13,0,0,0,0, 

95,92,94,93,40,7732 

1420 DATA 202,148,70,0,0,10,4,0,0,146, 

68,162,6,6,6,6,6716 

1430 DATA 1,11,21,31,1,6,11,16,21,26,3 

1,36,54,74,94,114,8080 

1440 DATA 134,154,174,194,60,68,76,84, 

92,100,108,116,124,132,140,148,7428 

1450 DATA 156,164,172,180,188,0,0,0,0, 

0,85,85,170,170,255,255,8560 

1460 DATA 68,68,136,136,204,204,102,10 

2,119,119,187,187,34,34,34,34,4924 

1470 DATA 204,204,17,17,153,153,136,13 

6,51,51,0,0,0,0,0,0,6893 

1480 DATA 0,0,85,85,170,170,255,255,17 

,17,34,34,34,34,153,153,4536 

1490 DATA 221,221,238,238,68,68,204,20 

4,153,153,102,102,221,221,221,221,5698 

1500 DATA 51,51,0,0,0,0,0,0,0,1,1,1,1, 

2,2,2,1789 

1510 DATA 2,3,3,3,3,1,0,0,1,2,0,0,2,3, 

0,0,1657 

1520 DATA 2,1,2,2,1,1,3,3,1,2,3,3,2,0, 

2,1,1764 

1530 DATA 0,0,2,3,0,3,0,2,1,0,1,1,2,2, 

1,3,1731 

1540 DATA 1,2,0,3,1,0,3,0,3,64,0,32,96 

,32,64,0,5290 

1550 DATA 96,255,127,63,31,15,7,3,1,13 

,40,54,38,112,112,112,9868 

1560 DATA 66,107,42,2,2,130,112,79,8,4 

2,66,11,43,79,0,42,7795 

1570 DATA 66,51,43,79,0,42,66,91,43,79 

,0,42,66,131,43,79,9907 

1580 DATA 0,42,66,171,43,207,0,42,112, 

79,0,42,66,211,43,207,4410 

1590 DATA 0,42,112,79,0,42,66,35,44,79 

,0,42,48,79,0,42,7412 

1600 DATA 66,251,43,79,0,42,224,0,79,0 

,42,72,75,44,72,75,341 

1610 DATA 44,112,78,247,44,14,78,247,4 

4,14,78,247,44,14,78,247,6174 

1620 DATA 44,14,78,247,44,14,78,247,44 

,14,78,247,44,14,78,247,5988 

1630 DATA 44,207,0,42,65,159,45,32,112 

,112,78,0,92,14,14,14,8918 

1640 DATA 14,14,14,14,14,14,14,14,14,1 

4,14,14,14,14,14,14,3544 

1650 DATA 112,72,0,6,8,8,8,8,8,8,8,8,8 

,8,8,8,2938 

1660 DATA 8,8,8,8,8,8,136,66,149,44,65 
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,25,46,112,112,112,1742 

1676 DATA 112,112,112,79,0,42,66,85,44 

,79,0,42,112,79,6,6,8408 

1680 DATA 15,15,15,15,15,15,15,112,79, 

6,42,66,117,44,79,6,8283 

1698 DATA 42,65,79,46,112,112,112,112, 

112,112,79,6,42,66,6,47,564 

1768 DATA 79,8,42,112,79,8,42,66,38,47 

,79,8,42,112,48,79,9349 

1718 DATA 6,6,15,15,15,15,15,15,15,65, 

118,46,112,112,112,112,1348 

1726 DATA 79,8,42,66,78,47,79,8,42,48, 

66,8,6,2,2,2,5126 

1738 DATA 2,2,2,2,48,79,8,42,66,182,47 

,79,0,42,65,158,9978 

1746 DATA 46,112,112,112,112,79,8,42,6 

6,134,47,79,6,42,48,79,135 

1758 DATA 6,42,66,38,47,79,8,42,112,79 

,8,6,15,15,15,15,5969 

1766 DATA 15,15,15,65,195,46,112,112,1 

12,112,112,112,112,112,79,8,3954 

1776 DATA 42,66,166,47,79,8,42,48,79,8 

,42,66,198,47,79,8,85 

1788 DATA 42,65,232,46,86,51,97,118,10 

1,6,38,185,188,161,8,8,596 

1796 DATA 6,5,38,111,114,189,97,116,26 

,43,111,97,188,97,8,38,1614 

1866 DATA 165,168,181,66,86,37,116,116 

,161,114,6,36,97,116,97,8,1859 

1816 DATA 8,6,8,6,5,56,37,52,53,58,46, 

8,116,111,6,37,7971 

1828 DATA 126,165,116,66,86,44,111,97, 

186,8,38,185,188,161,6,8,465 

1838 DATA 6,5,38,111,114,189,97,116,26 

,8,6,8,6,8,6,8,5469 

1846 DATA 8,6,8,66,86,45,111,114,181,0 

,8,6,6,0,6,5,5572 

1858 DATA 44,111,97,166,6,8,8,6,6,5,37 

,126,165,116,8,6,7747 

1868 DATA 8,6,6,66,86,52,161,126,116,1 

17,114,161,8,36,181,162,2864 

1876 DATA 185,116,161,6,6,5,48,185,99, 

187,0,26,6,35,111,188,9818 

1888 DATA 111,114,115,66,86,6,8,8,8,8, 

8,37,114,97,115,181,9883 

1898 DATA 8,57,111,117,114,8,48,185,99 

,116,117,114,181,8,8,8,578 

1966 DATA 6,6,6,66,86,46,111,8,8,6,8,0 

,0,8,8,0,3647 

1910 DATA 0,0,0,6,5,57,101,115,6,8,8,8 

,6,6,6,8,3928 

1928 DATA 6,8,8,66,35,164,97,114,8,38, 

111,118,116,8,43,111,1424 

1938 DATA 97,168,97,6,38,185,188,181,4 

5,165,99,114,111,48,97,165,4688 

1946 DATA 118,116,45,97,163,116,165,48 

,114,165,116,116,46,78,78,84,3869 

1958 DATA 155,46,88,73,67,155,46,77,73 

,67,155,46,77,86,155,14,3186 

1966 DATA 19,24,29,48,48,48,48,230,248 

,250,4,47,47,47,48,1,2283 

1976 DATA 12,22,69,32,83,69,67,166,198 

,233,236,229,243,246,229,227,7981 

1986 DATA 186,166,168,212,229,248,244, 

245,242,229,186,168,168,168,166,168,78 

29 

1998 DATA 212,229,248,244,186,57,48,67 

,48,77,48,174,56,11,51,236,5687 

2868 DATA 56,46,52,169,1,133,178,169,1 

18,141,48,2,169,46,141,49,5683 

2818 DATA 2,32,126,56,32,256,48,173,22 

4,75,281,155,246,11,32,145,8969 

2826 DATA 48,169,8,32,157,73,32,246,61 

,32,147,73,76,235,72,166,7301 

2638 DATA 176,189,33,48,133,161,189,37 

,48,133,162,162,8,166,6,189,6871 

2846 DATA 224,75,157,9,75,201,155,248, 

3,232,268,243,177,161,157,9,2112 



2656 DATA 75,261,155,246,4,232,268,288 

,243,96,173,37,228,72,173,36,1665 

2868 DATA 228,72,96,166,178,189,41,48, 

133,161,189,45,48,133,162,168,8941 

2878 DATA 9,177,161,153,91,47,136,16,2 

48,169,158,141,48,2,169,46,6628 

2688 DATA 141,49,2,32,126,56,32,147,73 

,169,6,76,157,73,169,8,3742 

2690 DATA 170,157,0,6,232,208,250,96,1 

60,0,32,140,55,160,8,132,6183 

2100 DATA 212,162,10,169,32,32,105,58, 

232,224,32,208,248,162,0,134,9705 

2110 DATA 171,169,95,32,97,58,32,188,4 

8,166,171,201,155,240,51,201,1334 

2120 DATA 126,208,16,224,0,240,232,169 

,32,32,97,58,202,32,97,58,5850 

2130 DATA 76,17,49,164,231,208,14,41,1 

27,201,32,144,210,201,96,248,1929 

2140 DATA 206,201,123,176,202,228,212, 

240,198,157,224,75,32,97,58,232,2675 

2150 DATA 208,189,157,224,75,169,0,133 

,231,169,32,76,97,58,32,114,5966 

2160 DATA 49,29,139,45,166,173,96,32,1 

14,49,29,143,45,166,173,96,6251 

2178 DATA 72,42,42,42,42,41,3,134,173, 

178,184,41,159,96,169,42,5688 

2188 DATA 141,224,75,169,155,141,225,7 

5,76,145,48,169,8,133,178,32,7886 

2198 DATA 248,48,32,128,49,76,166,49,1 

69,1,288,241,169,2,288,237,1237 

2268 DATA 169,3,268,233,32,197,48,169, 

8,133,174,133,175,32,248,49,9628 

2216 DATA 32,68,56,173,132,2,248,46,17 

3,126,2,281,15,246,244,261,1562 

2228 DATA 11,288,16,198,174,16,22,169, 

2,133,174,268,16,281,7,268,8154 

2230 DATA 226,230,174,165,174,201,3,20 

8,4,169,0,133,174,32,248,49,8395 

2240 DATA 32,18,69,76,181,49,165,174,2 

01,2,208,3,76,147,73,201,8075 

2250 DATA 1,240,33,76,178,49,169,102,1 

60,47,162,32,32,216,55,166,7314 

2260 DATA 174,189,49,48,170,160,7,189, 

182,47,9,128,157,162,47,232,7431 

2278 DATA 136,16,244,96,32,167,57,173, 

224,75,261,155,268,1,96,32,8886 

2288 DATA 145,48,169,4,32,157,73,48,19 

,165,178,18,178,189,93,48,5871 

2298 DATA 141,66,50,189,94,48,141,61,5 

0,32,255,255,32,147,73,76,7110 

2300 DATA 235,72,169,0,133,176,133,165 

,169,6,133,166,165,175,240,1,405 

2310 DATA 96,32,240,48,162,32,169,5,15 

7,66,3,169,224,157,68,3,5919 

2320 DATA 169,75,157,69,3,169,29,157,7 

2,3,169,0,157,73,3,32,2031 

2330 DATA 86,228,16,3,230,175,96,160,4 

,185,231,75,217,52,48,208,8 

2340 DATA 5,136,16,245,230,175,168,0,1 

85,224,75,32,96,49,145,165,8828 

2358 DATA 266,192,13,268,243,165,165,2 

4,165,16,133,165,144,2,236,166,9911 

2366 DATA 238,176,165,176,261,16,246,3 

,76,86,56,96,162,32,169,7,5393 

2378 DATA 157,66,3,169,8,157,68,3,157, 

72,3,169,4,157,73,3,2373 

2386 DATA 169,37,157,69,3,32,86,228,76 

,147,73,162,32,169,7,157,6363 

2398 DATA 66,3,169,8,157,72,3,157,73,3 

,76,86,228,132,172,32,5922 

2486 DATA 285,58,48,3,164,172,96,164,1 

64,96,32,97,52,48,23,32,1834 

2416 DATA 265,58,48,18,141,197,44,166, 

8,32,223,56,48,8,153,193,5898 

2426 DATA 44,268,192,3,268,243,76,147, 

73,32,131,76,169,8,133,177,7946 

2438 DATA 133,179,133,181,133,183,169, 

129,133,178,133,188,133,182,24,165,939 
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2446 DATA 38,133,184,160,0,32,223,58,1 

53,224,75,288,192,27,288,245,2837 

2458 DATA 168,4,185,237,75,153,193,44, 

136,16,247,173,231,75,133,187,2334 

2468 DATA 288,6,32,97,52,76,147,73,168 

,8,132,188,132,186,132,198,9981 

2478 DATA 32,223,58,24,42,38,198,74,13 

3,185,208,18,32,223,50,133,7425 

2488 DATA 186,32,223,58,133,185,165,19 

8,248,32,32,223,58,145,181,166,1688 

2498 DATA 187,224,2,288,6,32,22,52,76, 

128,51,32,176,51,198,185,6596 

2580 DATA 288,232,165,186,240,198,198, 

186,16,224,32,223,50,133,189,165,3072 

2510 DATA 189,145,181,166,187,224,2,20 

8,6,32,22,52,76,164,51,32,3954 

2520 DATA 176,51,198,185,288,233,165,1 

86,240,162,198,186,16,225,165,181,6132 

2538 DATA 24,105,80,133,181,165,182,10 

5,0,133,182,165,181,197,183,208,4041 

2540 DATA 44,165,182,197,184,208,38,16 

5,188,208,35,238,188,165,179,24,2742 

2550 DATA 105,40,133,181,165,180,105,0 

,133,182,165,183,24,105,40,133,8036 

2568 DATA 183,165,184,105,0,133,184,23 

0,179,208,2,230,180,95,198,188,4106 

2578 DATA 165,179,133,181,133,183,165, 

180,133,182,24,185,30,133,184,165,767 

2580 DATA 177,24,105,40,170,165,178,10 

5,0,197,182,208,224,228,181,208,5821 

2590 DATA 220,184,104,96,230,181,208,2 

,230,182,165,178,24,185,30,170,215 

2600 DATA 165,177,228,182,208,199,197, 

181,288,195,240,229,32,205,50,48,3606 

2610 DATA 8,201,14,240,5,201,24,240,1, 

96,160,3,32,223,50,136,6570 

2620 DATA 16,250,160,0,32,223,50,153,1 

93,44,200,192,5,208,245,160,2581 

2630 DATA 203,32,223,50,136,208,250,16 

0,78,32,223,50,136,16,250,162,1133 

2640 DATA 32,169,7,157,66,3,169,0,157, 

68,3,169,129,157,69,3,4302 

2650 DATA 169,0,157,72,3,169,30,157,73 

,3,76,86,228,173,132,2,6026 

2660 DATA 240,13,32,224,71,32,9,69,32, 

234,61,208,240,169,1,8,6504 

2670 DATA 32,177,69,40,96,166,141,189, 

8,76,133,128,189,200,76,133,9754 

2680 DATA 129,165,140,72,41,3,170,104, 

74,74,168,138,73,3,170,177,7375 

2690 DATA 128,202,48,5,74,74,76,179,52 

,41,3,96,32,196,69,32,2934 

2700 DATA 63,60,32,127,52,208,6,32,213 

,52,76,196,52,169,255,141,41 

2710 DATA 252,2,96,169,0,133,204,160,1 

,165,140,153,136,77,133,202,544 

2720 DATA 133,196,165,141,153,136,78,1 

33,203,133,197,132,205,32,152,53,644 

2730 DATA 133,195,166,210,224,4,176,5, 

197,198,208,1,96,32,174,53,8214 

2740 DATA 185,136,77,133,196,185,136,7 

8,133,197,173,31,208,201,6,208,2004 

2750 DATA 3,76,183,53,230,196,165,196, 

201,160,176,8,32,152,53,208,823 

2760 DATA 3,32,130,53,198,196,198,196, 

165,196,201,255,240,8,32,152,3409 

2770 DATA 53,208,3,32,130,53,230,196,2 

30,197,165,197,201,192,176,8,3810 

2780 DATA 32,152,53,288,3,32,130,53,19 

8,197,198,197,165,197,201,255,5940 

2790 DATA 240,8,32,152,53,288,3,32,130 

,53,198,205,240,4,200,76,9270 

2800 DATA 2,53,164,204,240,79,132,205, 

185,136,88,153,136,78,185,136,2006 

2810 DATA 79,153,136,77,136,208,241,16 

0,1,169,0,133,204,76,2,53,6695 

2820 DATA 32,174,53,230,204,240,55,164 

,204,165,196,153,136,79,165,197,4415 



2830 DATA 153,136,80,164,172,96,32,163 

, 53, 32, 151, 52, 164, 172, 197, 195, 812 

2840 DATA 96,132,172,165,196,133,140,1 

65,197,133,141,96,32,163,53,32,8265 

2850 DATA 69,73,164,172,96,165,203,133 

,141,165,202,133,140,96,32,183,1509 

2860 DATA 53,104,104,96,169,0,133,177, 

169,129,133,178,169,0,133,179,475 

2870 DATA 169,97,133,180,162,29,168,0, 

177,177,145,179,200,208,249,230,6489 

2880 DATA 178,230,188,202,16,242,96,16 

9,0,133,179,169,129,133,180,169,2692 

2890 DATA 0,133,177,169,97,133,178,208 

,219,165,234,201,2,144,33,32,212 

2900 DATA 34,54,165,207,72,165,209,72, 

169,191,56,229,209,133,209,169,4967 

2910 DATA 191,56,229,207,133,207,32,34 

,54,104,133,209,104,133,207,96,483 

2920 DATA 165,287,197,209,176,9,168,16 

5,209,56,229,207,76,56,54,164,1006 

2930 DATA 209,165,207,56,229,209,24,10 

5,2,170,224,192,144,2,162,191,1593 

2940 DATA 192,8,240,1,136,185,280,76,1 

33,162,185,8,76,133,161,56,8763 

2950 DATA 233,0,133,163,165,162,233,12 

9,133,164,165,163,24,105,0,133,9212 

2960 DATA 163,165,164,105,97,133,164,1 

60,39,177,163,145,161,136,16,249,1951 

2970 DATA 165,163,24,105,40,133,163,14 

4,2,230,164,165,161,24,105,40,7990 

2980 DATA 133,161,144,2,230,162,202,22 

4,255,208,220,96,32,196,69,32,1857 

2990 DATA 63,60,32,198,53,32,127,52,20 

8,13,32,152,59,32,161,59,4575 

3000 DATA 208,22,32,234,61,208,6,32,23 

3,53,76,207,52,173,132,2,7192 

3010 DATA 208,235,32,177,69,76,148,54, 

32,224,71,32,138,59,165,288,8877 

3020 DATA 133,150,165,209,133,151,32,6 

6,71,76,175,54,169,12,141,209,8903 

3030 DATA 44,173,132,2,240,40,173,120, 

2,201,7,208,11,164,210,200,825 

3040 DATA 192,17,208,15,160,0,240,11,2 

01,11,208,224,164,210,136,16,781 

3050 DATA 2,160,16,132,210,32,4,55,32, 

18,69,76,206,54,78,209,5745 

3060 DATA 44,96,165,210,10,10,168,162, 

0,185,71,45,149,198,200,232,1805 

3070 DATA 224,4,208,245,96,32,253,69,1 

69,195,141,48,2,169,46,141,8837 

3080 DATA 49,2,169,57,141,47,2,160,2,3 

2,140,55,160,4,32,1,1319 

3090 DATA 49,173,224,75,201,155,208,1, 

96,160,0,185,224,75,201,155,1997 

3100 DATA 240,246,41,127,56,233,48,48, 

239,201,4,176,235,153,224,75,2935 

3110 DATA 200,192,4,208,230,160,0,32,1 

23,55,141,27,45,141,26,45,4105 

3120 DATA 160,2,32,123,55,141,66,45,14 

1,67,45,160,3,185,224,75,7358 

3130 DATA 153,135,45,136,16,247,76,4,5 

5,185,224,75,10,10,25,225,6312 

3140 DATA 75,133,211,10,10,10,10,5,211 

,96,185,87,48,133,163,185,8203 

3150 DATA 88,48,133,164,169,187,133,23 

6,32,240,48,133,231,168,177,163,4605 

3160 DATA 132,84,32,105,58,200,192,11, 

208,244,96,32,199,69,32,177,9515 

3170 DATA 69,173,132,2,208,251,76,18,6 

9,32,199,69,32,177,69,166,7754 

3180 DATA 131,208,2,162,5,202,152,141, 

10, 212, 157, 22, 208, 200, 173, 132, 2222 

3190 DATA 2,208,243,76,18,69,133,165,1 

32,166,168,0,177,165,41,127,9262 

3200 DATA 145,165,200,202,208,246,96,3 

2,85,56,32,126,56,169,232,141,546 

3210 DATA 48,2,169,46,141,49,2,169,0,1 

33,211,32,53,56,173,132,6533 
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3220 DftTft 2,240,38,173,120,2,164,211,2 

01,11,208,7,136,16,15,160,7024 

3230 DATA 1,208,11,201,7,208,231,200,1 

92,2,208,2,160,0,132,211,480 

3240 DATA 32,53,56,32,18,69,76,0,56,16 

5,211,240,3,32,131,70,5637 

3250 DATA 76,190,69,169,198,160,47,162 

,32,32,216,55,152,1,165,211,9779 

3260 DATA 240,2,162,17,160,12,189,198, 

47,9,128,157,198,47,232,136,530 

3270 DATA 16,244,96,162,29,169,0,133,1 

61,159,129,133,162,169,0,133,9687 

3280 DATA 163,159,97,133,164,160,0,177 

,161,72,177,163,145,161,104,145,1891 

3290 DATA 163,200,208,243,230,162,230, 

164,202,16,236,96,32,253,69,169,3916 

3300 DATA 57,141,47,2,96,166,131,240,7 

,202,189,193,44,76,149,56,9346 

3310 DATA 173,197,44,72,41,14,133,133, 

104,74,74,74,74,41,15,133,3848 

3320 DATA 132,32,207,56,76,190,56,165, 

132,10,10,10,10,5,133,166,3962 

3330 DATA 131,240,5,202,157,193,44,96, 

141,197,44,96,166,133,160,35,9638 

3340 DATA 189,59,74,153,35,44,189,60,7 

4,153,36,44,96,165,132,10,5541 

3350 DATA 133,134,10,10,24,101,134,24, 

101,132,170,160,6,189,75,74,6729 

3360 DATA 153,35,44,232,200,192,17,208 

,244,96,32,177,69,169,6,141,9819 

3370 DATA 206,44,10,141,208,44,32,42,5 

7,173,132,2,240,74,173,120,8512 

3380 DATA 2,201,7,240,6,201,11,208,240 

,240,20,164,131,200,192,4,1937 

3390 DATA 208,2,160,0,132,131,32,42,57 

,32,18,69,76,251,56,164,5913 

3400 DATA 131,136,16,240,160,3,208,236 

,169,251,160,43,162,40,32,216,1882 

3410 DATA 55,166,131,189,210,44,170,16 

0,7,189,251,43,9,128,157,251,2240 

3420 DATA 43,232,136,16,244,76,135,56, 

32,18,69,32,177,69,173,132,7053 

3430 DATA 2,208,6,32,177,69,76,52,73,1 

73,120,2,201,11,208,9,6003 

3440 DATA 166,132,202,16,17,162,15,208 

,13,201,7,208,14,166,132,232,264 

3450 DATA 224,16,208,2,162,0,134,132,7 

6,155,57,201,14,208,12,164,8313 

3460 DATA 133,200,200,192,16,208,16,16 

0,0,240,12,201,13,208,191,164,1595 

3470 DATA 133,136,136,16,2,160,14,132, 

133,32,169,56,32,135,56,32,4177 

3480 DATA 18,69,76,80,57,169,0,133,174 

,32,73,58,32,177,69,173,6629 

3490 DATA 120,2,201,7,208,12,238,174,1 

65,174,201,16,208,49,169,0,9912 

3500 DATA 240,45,201,11,208,8,198,174, 

16,39,169,15,208,33,201,14,7321 

3510 DATA 208,13,165,174,56,233,2,16,2 

2,24,105,16,76,241,57,201,6973 

3520 DATA 13,208,20,165,174,24,105,2,2 

01,16,144,3,56,233,16,133,6381 

3530 DATA 174,32,73,58,32,18,69,173,13 

2,2,240,8,32,234,61,240,8745 

3540 DATA 51,76,177,57,32,60,58,160,2, 

177,161,41,127,32,105,49,5217 

3550 DATA 153,222,75,281,32,240,5,200, 

192,10,208,237,169,155,153,222,5585 

3560 DATA 75,160,7,177,161,41,127,32,1 

05,49,217,45,48,208,10,200,8128 

3570 DATA 192,12,208,239,169,155,141,2 

24,75,96,165,174,10,10,10,10,6038 

3580 DATA 133,161,169,6,133,162,96,169 

,0,160,6,162,255,32,216,55,9720 

3590 DATA 32,60,58,168,14,177,161,9,12 

8,145,161,136,16,247,96,72,9150 

3600 DATA 138,24,105,11,133,84,104,72, 

134, 237, 132, 238, 32, 76, 66, 165, 9612 

3610 DATA 84,133,165,169,6,133,166,160 



,0,162,0,165,162,24,101,236,9734 

3620 DATA 133,162,177,161,69,195,129,1 

65,165,165,24,105,32,133,165,200,1602 

3630 DATA 192,8,208,238,104,166,237,16 

4,238,96,142,66,149,44,65,0,8885 

3640 DATA 41,155,70,251,63,142,54,74,6 

0,213,58,126,65,202,67,141,9096 

3650 DATA 49,190,52,74,59,174,59,178,5 

9,182,59,206,54,23,55,190,8068 

3660 DATA 73,236,56,233,55,85,56,173,5 

5,187,55,101,48,154,49,158,8091 

3670 DATA 49,162,49,32,196,69,32,63,60 

,32,198,53,32,127,52,208,6416 

3680 DATA 13,32,152,59,32,161,59,288,2 

2,32,234,61,208,6,32,233,8472 

3690 DATA 53,76,207,52,173,132,2,208,2 

35,32,177,69,76,219,58,32,8705 

3700 DATA 224,71,32,138,59,165,206,133 

,150,165,209,133,151,32,66,71,9937 

3710 DATA 165,208,133,150,165,207,133, 

151,32,66,71,165,209,133,141,165,2539 

3720 DATA 208,133,158,165,209,133,151, 

32,66,71,165,208,133,140,165,207,3551 

3730 DATA 133,141,165,208,133,150,165, 

209,133,151,32,66,71,165,206,133,2166 

3740 DATA 140,165,207,133,141,76,246,5 

8,32,196,69,32,63,60,32,198,7408 

3750 DATA 53,32,127,52,208,16,32,152,5 

9,32,198,53,32,161,59,208,7580 

3760 DATA 19,32,234,61,208,6,32,233,53 

,76,207,52,173,132,2,208,9546 

3770 DATA 235,76,91,59,32,224,71,32,13 

8,59,165,208,133,150,165,209,2714 

3780 DATA 133,151,32,66,71,76,110,59,1 

65,140,133,206,165,141,133,207,2874 

3790 DATA 32,251,53,76,227,59,165,140, 

133,208,165,141,133,209,96,173,4198 

3800 DATA 120,2,201,15,208,5,173,252,2 

,201,255,96,169,1,208,6,296 

3810 DATA 169,2,208,2,169,3,197,234,28 

8,2,169,0,72,165,234,240,3076 

3820 DATA 17,10,10,10,168,104,72,208,4 

, 169, 128, 208, 2, 169, 0, 153, 8029 

3830 DATA 89,43,184,133,234,240,9,10,1 

0,10,168,169,255,153,89,43,9148 

3840 DATA 96,32,69,73,166,234,240,248, 

282,208,12,32,45,60,32,37,7308 

3850 DATA 60,32,69,73,76,54,60,202,208 

,16,32,45,60,169,191,56,7044 

3860 DATA 229,141,133,141,32,69,73,76, 

54,60,32,252,59,165,140,72,7818 

3870 DATA 165,141,72,32,37,60,32,69,73 

,32,255,59,104,133,141,104,7465 

3880 DATA 133,140,96,169,159,56,229,14 

0,133,140,96,165,140,133,232,165,4546 

3890 DATA 141,133,233,96,165,232,133,1 

40,185,233,133,141,96,165,147,133,4509 

3900 DATA 160,169,0,133,147,76,39,70,3 

2,196,69,32,63,60,32,67,3556 

3910 DATA 60,32,198,53,32,127,52,208,2 

1,165,140,133,224,165,141,133,2230 

3920 DATA 225,32,253,69,32,161,59,208, 

22,32,234,61,208,6,32,233,9267 

3930 DATA 53,76,207,52,173,132,2,208,2 

35,32,177,69,76,80,60,32,7029 

3940 DATA 224,71,165,140,72,133,220,16 

5,141,72,133,221,165,220,56,229,5212 

3950 DATA 224,176,5,165,224,56,229,220 

,133,226,201,63,144,4,169,62,1899 

3960 DATA 208,246,56,165,221,229,225,1 

76,5,165,225,56,229,221,133,227,7490 

3970 DATA 165,225,24,101,227,201,192,1 

44,2,169,191,133,209,165,225,56,4601 

3980 DATA 229,227,201,192,144,2,169,0, 

133,207,32,251,53,165,227,201,4200 

3990 DATA 63,144,4,169,62,133,227,169, 

0,133,218,133,216,133,217,169,5031 

4000 DATA 3,133,219,166,219,189,136,61 

,133,214,189,140,61,133,215,154,4859 
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4810 DATA 218,166,227,185,168,61,32,14 

4,61,166,214,268,11,133,222,165,3597 

4628 DATA 225,56,229,222,176,5,144,32, 

24,181,225,133,221,169,64,56,498 

4838 DATA 229,218,168,166,226,185,168, 

61,32,144,61,166,215,208,16,133,2233 

4848 DATA 222,165,224,56,229,222,176,1 

0,169,8,133,216,76,93,61,24,8442 

4050 DATA 101,224,133,220,166,216,208, 

16,165,220,133,140,165,221,133,141,590 

6 

4060 DATA 32,227,59,230,216,76,93,61,1 

65,220,133,150,165,221,133,151,4916 

4070 DATA 32,66,71,165,150,133,140,165 

,151,133,141,165,217,240,11,198,4689 

4080 DATA 218,16,32,198,217,230,218,76 

,120,61,230,218,165,218,201,65,5905 

4090 DATA 208,17,230,217,198,218,198,2 

19,16,9,104,133,141,104,133,140,1824 

4100 DATA 76,118,60,76,229,60,1,1,0,0, 

1,0,0,1,133,213,1844 

4110 DATA 134,222,169,0,133,223,162,7, 

70,213,144,3,24,101,222,106,9520 

4120 DATA 102,223,202,16,243,96,0,6,13 

,19,25,31,38,44,50,56,887 

4130 DATA 62,68,74,80,86,92,98,104,109 

,115,121,126,132,137,142,147,460 

4140 DATA 152,157,162,167,172,177,181, 

185,190,194,198,282,206,209,213,216,93 

6 

4150 DATA 220,223,226,229,231,234,237, 

239,241,243,245,247,248,258,251,252,73 

19 

4160 DATA 253,254,255,255,255,255,255, 

255,173,31,208,201,3,96,162,26,4132 

4178 DATA 189,96,63,157,229,159,202,16 

,247,162,4,189,193,44,157,242,4516 

4188 DATA 159,202,16,247,162,32,169,15 

9,157,69,3,169,229,157,68,3,9643 

4190 DATA 169,27,157,72,3,169,30,157,7 

3,3,169,129,133,129,169,0,7831 

4200 DATA 133,128,169,160,133,135,169, 

0,133,134,169,0,133,239,133,240,3700 

4210 DATA 133,241,165,128,133,243,165, 

129,133,244,160,0,132,190,177,128,4618 

4220 DATA 133,242,200,177,128,197,242, 

240,6,169,128,133,190,198,242,160,7761 

4230 DATA 0,177,128,166,190,208,15,197 

,242,208,33,32,67,63,144,239,2253 

4240 DATA 165,190,240,24,208,9,197,242 

,240,5,133,242,76,93,62,56,703 

4250 DATA 165,128,233,1,133,128,165,12 

9,233,0,133,129,165,128,133,245,3954 

4260 DATA 165,129,133,246,165,245,56,2 

29,243,133,239,165,246,229,244,133,903 

4270 DATA 240,165,240,240,20,169,0,5,1 

90,32,47,63,165,240,32,47,7714 

4280 DATA 63,165,239,32,47,63,76,180,6 

2,165,239,48,232,5,190,76,668 

4290 DATA 165,62,165,190,268,11,165,24 

2,32,47,63,32,87,63,76,237,8811 

4300 DATA 62,165,243,133,128,165,244,1 

33,129,160,0,177,128,32,47,63,9065 

4310 DATA 198,239,165,239,201,255,208, 

2,198,240,165,239,208,4,165,246,8384 

4320 DATA 240,6,32,67,63,76,203,62,32, 

87,63,165,241,208,3,76,8761 

4330 DATA 52,62,162,32,165,134,56,233, 

229,157,72,3,141,247,159,165,3780 

4340 DATA 135,233,159,157,73,3,141,248 

,159,169,11,162,32,157,66,3,8238 

4350 DATA 76,86,228,169,0,133,177,169, 

129, 133, 178, 169, 0, 133, 179, 169, 3075 

4360 DATA 160,133,180,32,214,53,169,0, 

141,236,159,240,226,145,134,236,6863 

4376 DATA 134,268,2,236,135,165,135,20 

1,190,176,1,96,104,104,76,21,8981 

4380 DATA 63,230,128,208,14,236,129,16 

5,129,201,159,208,6,169,1,133,1795 



4390 DATA 241,56,96,24,96,165,245,133, 

128,165,246,133,129,96,255,128,5374 

4466 DATA 261,199,26,6,1,2,14,0,40,0,1 

92,6,2,4,6,8,7964 

4416 DATA 27,36,6,0,155,155,155,155,16 

2,166,207,165,266,74,74,197,3878 

4420 DATA 235,240,7,133,235,32,232,63, 

165,235,133,177,24,125,8,76,3 

4430 DATA 133,128,189,200,76,105,0,133 

,129,169,92,133,178,169,0,133,527 

4440 DATA 179,169,6,133,180,162,19,160 

,9,177,128,145,177,145,179,136,2983 

4450 DATA 16,247,165,179,24,105,10,133 

,179,165,128,24,105,40,133,128,8980 

4460 DATA 165,129,105,0,133,129,165,17 

7,24,105,40,133,177,165,178,105,1471 

4470 DATA 0,133,178,202,16,209,96,165, 

206,24,101,148,133,140,165,207,3861 

4486 DATA 24,161,149,133,141,96,169,0, 

168,153,0,92,153,0,93,153,8127 

4490 DATA 0,94,153,0,95,266,288,241,96 

,32,198,53,32,232,63,32,9315 

4566 DATA 269,69,169,8,133,286,133,287 

,133,235,169,26,133,148,74,133,2527 

4518 DATA 149,169,25,141,48,2,169,46,1 

41,49,2,169,12,141,192,2,6290 

4520 DATA 169,3,141,8,208,32,170,64,32 

,123,63,76,129,64,173,120,8295 

4530 DATA 2,162,7,221,22,75,240,50,202 

,16,248,162,3,173,252,2,1324 

4540 DATA 201,44,240,32,221,30,75,240, 

33,202,16,248,173,31,208,201,3895 

4550 DATA 5,268,56,173,192,2,24,105,2, 

41,15,141,192,2,32,18,3388 

4560 DATA 69,76,48,64,32,44,72,76,48,6 

4,138,10,170,189,71,65,6388 

4570 DATA 141,124,64,189,72,65,141,125 

,64,32,255,255,32,207,52,32,11 

4580 DATA 217,63,32,183,72,32,123,63,3 

2,170,64,32,234,61,208,1,7776 

4590 DATA 96,173,132,2,208,9,32,217,63 

,32,227,59,32,123,63,32,6177 

4600 DATA 9,69,32,9,69,76,48,64,32,253 

,69,165,148,10,10,24,4683 

4610 DATA 105,44,141,0,268,165,149,10, 

10,10,24,165,47,168,169,64,6615 

4620 DATA 32,204,64,169,160,32,204,64, 

169,64,162,7,153,0,36,200,8616 

4630 DATA 202,16,249,96,198,149,16,8,2 

30,149,165,207,240,2,198,207,5344 

4640 DATA 96,230,149,165,149,201,20,14 

4,247,198,149,32,217,63,165,141,4206 

4650 DATA 201,191,246,236,236,207,268, 

232, 198 , 148 , 16, 228 , 230, 148, 165, 206 , 960 

8 

4660 DATA 240,222,56,233,4,133,206,169 

,3.133,148,208,211,230,148,165,6360 

467B DATA 148,261,40,144,263,198,148,3 

2,217,63,165,146,201,159,240,192,7000 

4680 DATA 165,206,24,105,4,133,206,169 

,36,133,148,208,179,32,214,64,2148 

4690 DATA 76,15,65,32,214,64,78,258,64 

,32,227,64,76,15,65,32,5951 

4700 DATA 227,64,76,256,64,15,65,256,6 

4,214,64,227,64,47,65,59,8781 

4710 DATA 65,53,65,65,65,164,228,185,1 

89,44,141,123,44,96,169,117,1212 

4720 DATA 160,44,162,32,32,216,55,166, 

174,189,49,48,170,160,3,189,841 

4730 DATA 117,44,9,128,157,117,44,232, 

136,16,244,96,32,126,56,169,69 

4740 DATA 79,141,48,2,169,46,141,49,2, 

160,4,32,140,55,32,87,4261 

4750 DATA 65,169,0,133,236,133,174,169 

,117,160,44,162,32,32,216,55,298 

4768 DATA 160,20,230,231,32,1,49,173,2 

24,75,201,155,240,242,160,19,4516 

4770 DATA 185,224,75,153,199,75,136,16 

,247,32,96,65,173,132,2,240,1111 
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4780 DftTft 38,173,128,2,162,8,281,7,248 

,22,281,11,288,4,162,2,7758 

4798 DATft 288,14,281,14,288,4,162,1,28 

8,6,281,13,288,222,162,3,488 

4808 DflTft 134,228,32,87,65,288,213,238 

,174,32,248,65,238,174,32,96,3486 

4816 DATA 65,32,177,69,169,8,133,162,1 

60,238,162,17,165,174,281,2,2172 

4828 DATA 288,3,136,162,27,132,161,168 

,8,177,161,168,173,132,2,248,2948 

4838 DATA 51,173,128,2,201,14,208,9,28 

8,192,188,144,15,168,4,288,583 

4848 DATA 11,281,13,288,231,136,192,4, 

176,2,168,99,152,72,32,236,1263 

4858 DATA 67,157,118,44,152,157,117,44 

,134,171,32,18,69,166,171,184,9568 

4868 DATA 168,76,14,66,152,168,8,145,1 

61,96,168,8,132,195,132,162,1553 

4878 DATA 32,96,49,281,8,16,4,198,195, 

41,127,133,161,6,161,38,8111 

4888 DATA 162,6,161,38,162,6,161,38,16 

2,165,162,24,185,37,133,162,9614 

4898 DATA 96,166,228,208,27,24,165,286 

,181,183,133,191,165,184,185,8,2786 

4908 DATA 133,192,56,165,287,229,188,1 

33,193,169,8,229,189,133,194,96,5974 

4918 DATA 282,208,27,56,165,286,229,18 

8,133,191,169,8,229,189,133,192,6657 

4928 DATA 56,165,287,229,183,133,193,1 

69,8,229,184,133,194,96,282,208,7393 

4938 DATA 27,56,165,206,229,183,133,19 

1,169,0,229,184,133,192,24,165,4755 

4948 DATA 287,161,188,133,193,165,189, 

105,0,133,194,96,24,165,206,101,2507 

4958 DATA 188,133,191,165,189,105,8,13 

3,192,24,165,287,181,183,133,193,4501 

4968 DATA 165,184,105,8,133,194,96,133 

,128,132,129,169,8,133,163,133,1727 

4978 DATA 164,24,165,128,181,163,133,1 

63,169,8,181,164,133,164,282,288,4898 

4980 DATA 240,56,165,163,233,1,133,163 

,165,164,233,0,133,164,56,165,3878 

4998 DATA 163,229,129,133,163,168,165, 

164, 233, 8, 133, 164, 178, 96, 134, 185, 4872 

5000 DATA 132,186,134,181,169,8,133,18 

2,162,3,24,38,181,38,182,282,917 

5818 DATA 288,248,168,255,288,56,165,1 

81,229,186,133,181,165,182,233,0,6897 

5820 DATA 133,182,16,248,134,181,96,16 

9,0,133,190,230,190,164,190,185,7861 

5030 DATA 198,75,201,155,288,1,96,32,7 

6,66,165,229,133,196,198,196,5861 

5848 DATA 166,196,224,255,240,229,164, 

229,32,32,67,132,197,165,229,166,5735 

5850 DATA 198,164,196,32,233,66,132,18 

3,134,184,169,255,133,202,238,202,9437 

5060 DATA 166,202,228,230,240,216,164, 

230,32,32,67,132,203,164,203,177,6459 

5070 DATA 161,69,195,164,197,57,194,67 

,240,35,165,230,162,1,164,202,4728 

5888 DATA 32,233,66,132,188,134,189,32 

,115,66,166,191,164,193,165,192,5821 

5898 DATA 288,11,165,194,268,7,132,141 

,134,148,32,227,59,76,128,67,238 

5100 DATA 1,2,4,8,16,32,64,128,32,196, 

69,32,63,60,32,127,4455 

5110 DATA 52,288,22,165,148,133,286,72 

,165,141,72,133,207,32,73,67,409 

5120 DATA 104,133,141,104,133,148,76,2 

08,67,96,168,8,132,245,201,100,3114 

5130 DATA 144,7,56,233,100,230,245,208 

,245,72,165,245,9,16,133,245,5583 

5146 DATA 184,261,18,144,6,56,233,10,2 

00,208,246,9,16,72,152,9,8663 

5158 DATA 16,168,184,96,216,32,131,78, 

32,198,53,32,114,75,169,112,9841 

5168 DATA 141,8,41,141,1,41,169,32,141 

,2,41,169,78,141,3,41,5135 

5178 DATA 169,8,141,4,41,169,129,141,5 



,41,162,198,169,14,157,5,8469 

5188 DATA 41,202,208,250,162,6,189,156 

,58,157,198,41,202,16,247,169,4687 

5190 DATA 78,141,101,41,169,8,141,182, 

41,169,144,141,183,41,32,6,6489 

5288 DATA 74,32,7,78,169,8,162,127,149 

,128,202,16,251,169,8,133,1546 

5218 DATA 229,133,238,238,218,32,4,55, 

169,6,160,61,162,69,32,92,8122 

5220 DATA 228,32,235,72,32,235,68,173, 

128,2,281,7,248,68,281,11,593 

5230 DATA 240,77,201,14,240,47,201,13, 

240,20,173,132,2,208,232,32,2853 

5240 DATA 30,69,32,235,72,32,177,69,32 

,21,69,76,137,68,165,138,8244 

5250 DATA 24,105,5,201,25,144,3,56,233 

,25,133,136,32,235,68,32,8369 

5268 DATA 18,69,76,137,68,165,130,56,2 

33,5,16,238,24,185,25,76,7432 

5270 DATA 188,68,238,130,165,138,281,2 

5,288,2,169,0,76,188,68,198,1575 

5288 DATA 138,165,138,16,247,169,24,20 

8,243,169,11,168,43,162,208,32,2532 

5290 DATA 216,55,165,130,18,18,18,178, 

168,5,189,12,43,9,128,157,7881 

5388 DATA 12,43,232,136,16,244,96,169, 

0,133,20,165,28,248,252,96,2672 

5318 DATA 32,190,69,162,8,32,9,69,282, 

16,250,96,32,190,69,32,7927 

5328 DATA 177,69,32,287,52,165,138,18, 

178,189,163,58,141,56,69,189,1384 

5338 DATA 164,58,141,57,69,32,255,255, 

76,21,69,169,0,133,168,133,814 

5348 DATA 77,168,4,185,196,2,153,22,28 

8,136,16,247,165,169,208,8,2859 

5358 DATA 166,147,189,222,44,141,8,288 

,76,95,228,72,134,167,142,18,1371 

5360 DATA 212,166,168,224,3,248,25,224 

,4,288,7,169,0,141,26,288,639 

5378 DATA 240,39,189,283,44,141,24,288 

,189,286,44,141,23,288,208,25,2633 

5388 DATA 162,4,189,193,44,157,22,288, 

282,16,247,173,289,44,141,18,2376 

5390 DATA 288,166,218,189,238,44,141,0 

,208,230,168,166,167,184,64,72,3468 

5488 DATA 169,4,141,10,212,141,24,208, 

169 , 18 , 141, 23, 288 , 184 , 64, 173, 1114 

5418 DATA 132,2,248,251,169,1,141,132, 

2,76,21,69,169,0,141,31,6889 

5420 DATA 208,96,32,198,53,169,41,141, 

49,2,169,8,141,48,2,169,6961 

5438 DATA 64,141,14,212,169,161,141,0, 

2,169,69,141,1,2,169,192,9271 

5448 DATA 141,14,212,32,253,69,168,4,1 

85,193,44,153,196,2,136,16,9991 

5450 DATA 247,169,12,141,192,2,238,169 

,76,9,69,162,8,138,157,8,8333 

5460 DATA 36,232,208,258,96,32,253,69, 

141,0,208,169,32,141,7,212,2851 

5478 DATA 169,1,141,111,2,169,58,141,4 

7,2,169,14,141,192,2,169,8791 

5488 DATA 3,141,29,288,96,32,253,69,14 

1,8,288,166,147,189,34,75,1575 

5498 DATA 178,168,128,132,149,189,58,7 

5, 153, 8, 36, 232, 288, 192, 125, 288, 4881 

5500 DATA 244,166,147,169,255,133,137, 

133,138,189,42,75,133,136,189,58,3851 

5518 DATA 75,133,139,169,128,133,148,1 

69,93,133,141,169,88,133,148,224,5182 

5528 DATA 8,288,18,169,126,133,148,169 

,95,133,141,288,12,224,4,208,3378 

5538 DATA 8,169,97,133,141,169,4,133,1 

38,165,148,141,0,288,76,183,2782 

5548 DATA 72,169,129,133,129,169,8,133 

,128,162,29,169,0,168,145,128,1286 

5558 DATA 280,288,251,230,129,202,16,2 

43,96,32,196,69,32,39,70,32,8444 

5568 DATA 224,71,173,132,2,248,9,32,9, 

69,32,234,61,288,248,96,1514 
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5578 DflTfl 32,184,70,76,169,78,165,147, 

18,178,189,58,71,141,287,70,1671 

5588 DATA 189,51,71,141,288,78,32,227, 

59,32,41,74,32,255,255,76,1365 

5598 DATA 58,74,238,148,32,227,59,238, 

141,32,227,59,198,148,32,227,4253 

5688 DATA 59,198,141,96,32,38,71,76,66 

,71,32,26,71,76,66,71,4436 

5618 DATA 32,26,71,165,141,56,233,4,13 

3,151,76,66,71,32,26,71,6583 

5628 DATA 165,141,24,185,4,133,151,76, 

66, 71, 238, 148 , 238, 148 , 32 , 227 , 3618 

5638 DATA 59,238,148,238,148,76,227,59 

,165,148,24,185,4,133,158,165,1919 

5648 DATA 141,133,151,96,165,141,24,10 

5,4,133,151,165,148,133,158,96,2038 

5650 DATA 229,78,212,78,238,78,236,78, 

242,78,255,78,12,71,229,78,2945 

5668 DATA 32,41,74,165,151,197,141,144 

,11,56,229,141,133,145,169,1,1912 

5678 DATA 133,153,208,11,165,141,56,22 

9,151,133,145,169,255,133,153,165,7896 

5688 DATA 158,197,148,144,11,56,229,14 

8,133,144,169,1,133,152,208,11,1995 

5590 DATA 165,140,56,229,150,133,144,1 

69,255,133,152,169,0,133,155,133,4767 

5700 DATA 154,165,144,197,145,144,18,1 

33,156,133,157,74,133,155,76,156,3811 

5718 DATA 71,165,145,133,156,133,157,7 

4,133,154,165,156,248,61,165,155,5788 

5728 DATA 24,181,145,176,9,133,155,197 

,157,144,14,165,155,56,229,157,4322 

5730 DATA 133,155,165,141,24,101,153,1 

33,141,165,154,24,101,144,176,9,1107 

5740 DATA 133,154,197,157,144,14,165,1 

54,56,229,157,133,154,165,140,24,3584 

5750 DATA 181,152,133,148,32,227,59,19 

8,156,208,195,76,50,74,173,120,3375 

5760 DATA 2,162,7,221,22,75,240,42,202 

,16,248,162,3,173,252,2,2490 

5770 DATA 201,44,240,54,221,30,75,240, 

25,202,16,248,173,31,208,201,5141 

5780 DATA 5,240,1,96,173,192,2,24,105, 

2,41,15,141,192,2,76,6238 

5790 DATA 18,69,138,10,170,189,98,75,1 

41,36,72,189,99,75,141,37,9403 

5800 DATA 72,32,255,255,32,183,72,76,2 

07,52,230,210,165,210,201,17,5896 

5810 DATA 208,4,169,0,133,210,32,4,55, 

32,18,69,76,38,72,230,6835 

5820 DATA 140,165,140,197,136,176,8,23 

0,148,165,148,141,0,208,96,198,4952 

5830 DATA 140,96,198,140,165,140,197,1 

37,240,8,198,148,165,148,141,0,3982 

5840 DATA 208,96,230,140,96,198,141,16 

5,141,197,138,240,17,162,6,198,4849 

5850 DATA 149,164,149,185,0,36,153,255 

,35,200,202,16,246,96,230,141,5818 

5860 DATA 96,230,141,165,141,197,139,1 

76,17,162,6,230,149,164,149,185,5794 

5870 DATA 4,36,153,5,36,136,202,16,246 

,96,198,141,96,32,65,72,9830 

5880 DATA 76,103,72,32,65,72,76,131,72 

,32,84,72,76,103,72,32,5621 

5890 DATA 84,72,76,131,72,166,234,189, 

155,45,141,184,44,165,210,32,3524 

5900 DATA 236,67,141,175,44,140,174,44 

,165,140,32,236,67,141,158,44,2011 

5910 DATA 140,157,44,165,245,141,156,4 

4,165,141,32,236,67,141,166,44,2789 

5920 DATA 140,165,44,165,245,141,164,4 

4,96,169,45,141,49,2,169,159,1238 

5930 DATA 141,48,2,169,64,141,14,212,1 

69,93,141,8,2,169,69,141,9494 

5940 DATA 1,2,169,192,141,14,212,169,5 

8,141,47,2,160,4,185,198,1397 

5950 DATA 44,153,196,2,136,16,247,32,2 

53,69,133,169,141,192,2,141,2922 



5960 DATA 8,208,160,7,169,255,153,127, 

36,185,147,45,153,201,36,136,3204 

5970 DATA 16,242,169,6,141,207,44,141, 

208,44,10,141,206,44,165,160,2827 

5980 DATA 133,147,96,164,141,192,192,1 

76,71,185,8,76,133,128,185,200,4945 

5990 DATA 76,133,129,165,140,201,160,1 

76,55,72,74,74,24,101,128,133,504 

6000 DATA 128,165,129,105,0,133,129,10 

4,41,3,170,165,141,41,1,10,6629 

6010 DATA 133,211,165,140,41,1,5,211,1 

68,185,198,0,168,189,255,74,4933 

6020 DATA 57,3,75,133,134,189,251,74,1 

60,0,49,128,5,134,145,128,672 

6030 DATA 96,162,32,169,12,157,66,3,76 

,86,228,72,32,147,73,104,8859 

6040 DATA 162,32,157,74,3,169,3,157,66 

,3,169,75,157,69,3,169,8478 

6050 DATA 7,157,68,3,169,0,157,75,3,76 

,86,228,32,177,69,169,233 

6060 DATA 6,141,206,44,10,141,207,44,1 

73,120,2,201,7,240,19,201,1982 

6070 DATA 11,240,33,173,132,2,208,240, 

165,147,133,160,32,52,73,76,1193 

6080 DATA 18,69,230,147,165,147,201,8, 

208,2,169,0,133,147,32,18,8998 

6090 DATA 69,76,202,73,198,147,165,147 

,16,2,169,7,133,147,32,18,8074 

6100 DATA 69,76,202,73,169,128,133,135 

,169,216,133,134,162,0,165,134,4320 

6110 DATA 24,105,40,157,8,76,133,134,1 

65,135,105,0,133,135,157,200,2755 

6120 DATA 76,232,224,192,208,232,96,16 

5,140,133,158,165,141,133,159,96,6448 

6130 DATA 165,158,133,140,165,159,133, 

141,96,16,16,16,18,16,20,16,3814 

6148 DATA 22,16,24,17,16,17,18,17,28,3 

4,108,97,99,107,0,0,2435 

6150 DATA 0,0,16,16,50,117,115,116,0,0 

,0,0,0,16,17,50,226 

6160 DATA 101,100,13,47,114,110,103,0, 

16,18,36,114,107,13,47,114,4829 

6170 DATA 110,103,0,16,19,50,101,100,0 

,0,0,0,0,0,16,20,9012 

6180 DATA 36,114,107,13,44,97,118,101, 

0,16,21,35,111,98,13,34,3618 

6190 DATA 108,117,101,0,16,22,53,108,1 

16,13,34,108,117,101,0,16,4317 

6200 DATA 23,45,101,100,13,34,108,117, 

101,0,16,24,36,114,107,13,4227 

6210 DATA 34,108,117,101,0,16,25,34,10 

8,117,101,13,39,114,121,0,5085 

6220 DATA 17,16,47,108,105,118,13,39,1 

14,110,0,17,17,45,101,100,4774 

6230 DATA 13,39,114,110,0,0,17,18,36,9 

7,114,107,13,39,114,110,5383 

6240 DATA 0,17,19,47,114,110,103,13,39 

,114,110,0,17,20,47,114,4305 

6250 DATA 97,110,103,101,0,0,0,17,21,6 

3,207,243,252,192,48,12,304 

6260 DATA 3,0,85,170,255,68,58,80,73,6 

7,84,85,82,69,83,46,7211 

6270 DATA 80,73,67,155,7,11,14,13,6,5, 

10,9,7,6,14,15,8557 

6280 DATA 0,5,10,15,20,25,30,35,160,15 

9,160,156,156,156,156,160,2894 

6290 DATA 192,191,188,192,192,188,192, 

192,32,32,216,32,32,192,192,0,2516 

6360 DATA 0,0,128,128,128,128,128,248, 

0,0,0,0,8,16,32,64,3316 

6310 DATA 128,128,64,32,16,8,168,0,0,0 

,0,128,0,0,0,0,9854 

6320 DATA 65,72,84,72,183,72,131,72,15 

9,72,165,72,171,72,177,72,1377 

6330 DATA 169,255,168,39,153,8,42,135, 

16,250,200,132,161,132,163,132,4718 

6340 DATA 165,169,32,133,162,141,244,2 

, 169, 37, 133, 164, 169, 224, 133, 166, 6157 
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6350 l>ATa 162,3,177,165,145,161,145,16 

3,208,208,247,238,162,238,164,230,2542 

6360 DATA 166,282,16,238,160,7,169,128 

,153,48,32,169,1,153,48,32,8523 

6378 DATA 185,99,42,153,248,35,136,16, 

237,168,55,185,43,42,153,48,789 

6388 DATA 34,136,16,247,96,155,226,2,2 

27,2,48,42,8,8,8,8,3737 

6398 REM * 8624 BYTES 



^sr 




(or the 

Business 

Professional 



oint-of-Sale Systems 

Bring Business to the Leading Edge of High Technology 

Efficient Electronic Cash Registers 

Custom Color Grapttics Touch Screens 

Bar Code Readers and Printers 

Inventory Control with Product Movement Analysis 

Speciality MultiUser/fi^ultlTasking Systems 

Up-To-Minute Financial Statements 

iBeckemeyer Development Tools 475 452 1129 ext. 7oi 
\ 478 Santa Clara Ave Oakland, CA 94610 
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A 



THE 



A 



ATARI "SUPER ARCHIVER"!® ATARI 

S69.95 [foi" ATARI 1050 drives) $69.95 

Ttie ARCHIVER, louled by experts as being the most powerful BACKUP and 
PROGRAMING tool ever offered for Atari, has jusi become more POWERFULI 
Announcing the "SUPER ARCHIVER"! Complelely compolible with 810 
Ajchivers and Happy Archivers, the "SUPER ARCHIVER"I has been designed 
(or simple plug In installalion with lour easy solder connections (no 
desoidering or trace cutting required!), II will moke your 1050 capable of 
ULTRA HI-SPEED read/write functions, slngle-enhancedond TRUE DOUBLE 
DENSITY operation, and will allow you to COPY most "protected" disk 
progromsl Along with the Archiver software which contains a powerful Editor, 
Disassembler, Custom Formatter and Cuslom Mapper is a luily automalic 
PHANTOM SECTOR Copier/Ciealof for backing up the "UNCOPYABLE" 
Protection schemesi 



. TRUE DOUBLE DENSITY 

• MORE POWERFUL OS 

• HI'SPEED reao/wrile 

> HI POWERED BACKUP PROGRAM 

> SIMPLE INSTALLATION 



• AUTOMATIC PHANTOM SECTOR MAKER 

• ARCHIVER COMPATIBLE 

• FUTURE SOFTWARE EXPANDABLE 

• BUILT IN EDITOR, CUSTOM FORMATTER 
DISASSEMBLER. MAPPER, ETC, 



If your into creating your own prolecllon, the "SUPER ARCHIVER"I will also 
allow you to FUZZ any sector or sectors (any number of BYTES within the sector 
slarting at any BYTE numberl) inslanlly! Only S69 96 plus S4 S/H 

S49.95 THE ELECTRONIC $49^95 
"PHANTOM SECTOR MAKER"!® 

Installs quickly into any drive (no soldering required). Mokes precise FUZZY 
or PHANTOM sectors Instantly Fully adjustable capability allows you to FUZZ 
various portions o( any seclors or the entire sector itseK, Will allov^/ you to 
BACKUP most protected programs v^hich do not contain custonn tormals 
using youi unnnodified drive and will odd considerable COPYING POWER 
to existing HAPPY. ARCHIVER, KLONE II or DUPLICATOR DRIVES, Includes 
special sottware which will FIND and DISPLAY valid data, CRC errors and 
PHANTOM SECTORS all aulomaticallyl Copy program works in single or 
double density and lakes advantage o( all available memory for making 
single pass copiesi Only S49 95 plus SA S/H, 

Deluxe SET and FORGET version allows you to switch between CRC and 
PHANTOM seclors without having to readjust hardware module each lime. 
Only S59.95 plus $A S/H, 

DEALER/DISTRIBUTOR/USER GROUP Discounts available Call for infol 

COMPUTER SOFTWARE SERVICES 

RO. BOX 17660 
ROCHESTER, N.Y. 14617 



Master Card - Visa phone orders 
Money Orders - Check mail ofder 
Specify computer and drive modei 
numbers. Add 54 shipping/handling 
(NY. State residents add 7% tax) 



(716)467-9326 
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WHAT IS 

ST-CHECK? 



Most ST BASIC program listings 
in this magazine are followed by 
a table of numbers appearing as 
data statements, called "ST 
CHECKSUM DATA," These 
numbers are to be utilized in 
conjunction with ST-Check 
(which was published in 
ANALOG Computing issue 41) 

ST-Check, written by Clayton 
Walnum, is designed to find and 
correct typing errors when 
readers are entering programs 
from the magazine. For those 
readers who would like copies of 
the article, you may send for 
back issue 41 of ANALOG 
Computing, at a cost of $4,00, 

ANALOG COMPUTING 

RO. Box 625, Holmes, PA 19045 



ATARI 

WRITER 

PLUS 



A 



YOUR OWN 



CUSTOIVI 
PRINTER 
DRIVER 



$14.95 

DISK VERSION 



FREE SHIPPING! 



$9.95 



TYPE-IN 
VERSION 

Easy access to all your printer's 
features using Atariwriter + 
commands plus additional ones 
using special commands. 



Tell us make & model 
of your printer 



bend cnecK/money oraer to: 

NJ residents add 6% sales tax. 



86 Ridgedale Avenue 
Cedar Knolls, NJ 07927 

(201) 455-7844 

(Sorry, no telephone orders, credit cards or COD's.) 



ATARr 

PRODUCTS 

AT 

DISCOUNT 

PRICES 



8-blt 

GUNSHIP 
Silent Service 
$23.95 each 

ST 

GFA Basic 
SUPER Conductor 

$47.95 each 
KARATE HDII 
CARDS 2.0 

$23.95 each 
and much, 
much more . . . 



Accessories 

Avatex he 1200 $118.95 



P:R:Connection 
U.S. Doubler 
RamboXL 
Cables 



59.95 
49.95 
28.95 
10.95 



Postage & Handling 

For orders under $100: $i: over $100: $5 
For a FREE CATALOG call or write: 

MicroLab 

SOFTWARE 

P.O. Box 126072 
Benbrook, Texas 76126 

Voice 817-249-4255 
Modem 817-249-5768 
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COA/IPUTER DIRECT (A Division of PROTECTO) 







80 Column Printer • ZV2" Letter Size 

15 Day Free Trial-Satisfaction or Your Money Back • 90 Day Immediate Replacement Policy 

Big Blue Printer 




(Add $7.50 Shipping) 



The Affordable Printer You 
Have Been Waiting For! 



• Dot Matrix • Heat Transfer 

Upper/Lower Case (with true 

lower descenders) • Underline 

• Enlarged • Graphics 

• Plus Much More 



Sale 



List $199 



This printer was made by Canon® for the IBM PC and PCjr. The Big Blue printer comes ready to hook up to the serial port of the 1BM®PC jr. Plus 
with low cost adapter cables you can connect the Big Blue printer to the Apple® Il.IIe.IIc, Apple Compatibles, Atari®, Commodore® 64 ,128, SX-64, 
Vic 20, Plus 4, IBM®PC, IBM®XT, IBM® AT, IBM Compatibles , Tl-99, Tandy 1000, plus many more. 



Intelllgant Commodore® Interface List $49.95 Sale *19.9S RS-232 Adapter (specify mole or female) List $19.95 Sale * «.«S 

Intelligent Atari® Interface List $49.95 Sale $19.95 Paper (2 Rolls) List $19.95 Sale t 5.95 

Laier12a, Apple® lie interface List $24.95 Sale *12.95 Single Sheet Paper (Qty. 500) List $29.95 Sale «12.95 

IBM, Appla, Oinon. Commodore, Atari i LoMr Qr« registarsd trodvnKirks of Inlerrational Business AAochines. Apple Computer, Canon Inc, Commodofe Business Machines. Atari Inc, S Video Technologies Retp*ctivelv. 



Hi-Speed Printer Sale 

'160 - 180 GPS • Lifetime Warranty' • Near Letter Quality 

P-Jf NLO-180 Printer 




NLQ-180 Print Samples 
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Sale 

199 



All prices expire 8-31-87 



Save 60% Off List Price 



List $499 



• Near Letter Quality Selectable From Front Panel Controls • High Speed Dot Matrix 

• Letter Quality Modes • 8K Buffer frees up computer 4-times faster • Super Graphics 

• Pica, Elite, Italics, Condensed • Business or Personal • Tractor/Friction • 15 Day Free Trial 
• Lifetime Warranty on Print Head* • 6 Month Immediate Replacement Policy • 



INTERFACES 



Atari $39.95 Apple II $44.95 Commodore $29.95 IBM $24.95 Laser 128 $19.95 Macintosh $49.95 



shipping. Handling & Insurance Charges 

Add $10.00 for shipping, handling, and Insurance. Illinois residents please add 
6'/.% soles tax. Add $20.00 for ALASKA, CANADA, HAWAII, PUERTO RICO S 
APO-FPO orders. All orders must be in U.S. Dollars. WE DO NOT EXPORT TO 
OTHER COUNTRIES EXCEPT CANADA & PUERTO RICO. Enclose coshier check, 
money order or personal check. Allow 14 days for delivery, 2 to 7 days for phone 
orders, 1 day express mail. Prices & Availability subject to change without notice. 
VISA — MASTER CARD — C.O.P. Coll For C.O.D. Charges. 



COMPUTER DIRECT 

A Division of PROTECTO 

22292 N. Pepper Road, 
Barrington, III. 60010 

We Love Our Customers 




312/382-5244 

For Commodore •Atari 

312/382-5050 

For Apple « IBM 



CIRCLE #119 ON READER SERVICE CARD 



COMPUTER DIRECT (A Di%fislon of PROTECTS) 





Comstar Aero Printer 




List $349 



• 150 -170 CPS • Impact Dot Matrix 

• 10" Carriage • Underlining • Super & Subscript 

• Elite. Condensed, Emphasized, and Enlarged 

• Centronics Parallel Port and Much More 



Daisy Wheel 
Printer/Typewriter 

Sale 

$ 



159 



List $299 




• Drop-in Cassette Ribbon • Key in Buffer 

• Automatic Centering • 12" Large Carriage 

• Superb Letter Quality Correspondence 

• Centronics Parallel Port • Plus Much More 



Comstar 1 000 Printer 




List $499 



Superb 

Near Letter 

Quality 



• 100 CPS impact Dot Matrix • Underline 

• Double Strike • Superb Near Letter Quality 

• Pica, Elite, Condensed, Italics • Super/Subscript 

• 10" Carriage • Plus Much More 



Electronic Compact 
Printer/Typewriter 




List $399 



• 90,000 Word Dictionary • Centronics Parallel Port 

• LED Readout Flags Mistakes Before They Reach 

Print • 1 Line/ 240 Character Automatic Correction 

• Free 4K Memory Card Stores 4,000 Characters 



INTERFACES: Atari - $39.95 Apple II - $44.95 Commodore - $29.95 IBM -$24.95 Laser 12«- $19.95 



75 Day Free Trial • 90 Day Immediate Replacement Warranty 

• Best Prices • Best Service in U.S.A. • One Day Express Mail • Free Catalogs • 



shipping. Handling & Inauranca Chargs* 

Add $10.00 if ordering lh« Connitar title printers and $12,00 if ordering the 
prlnter/typewrller» for shipping, handling and Insurance, Illinois residents pleose add 
6'/i% tales tax. Add $20.00 (replacing $10.00) and $24.00 (replocing $12,00) for ALASKA, 
CANADA, PUERTO RiCO S APO-FPO orders. All orders must be In U.S. Dollars. WE DO NOT 
EXPOftT TO OTHER COUNTRIES EXCEPT CANADA S PUERTO RICO. Enclose coshier check, 
money order or personal check. Allow U doys for delivery, 2 to 7 days for phone orders, 1 
day express moll. Prices 8 Availability sub|ect to change without notice. 
VISA — MASTERCARD — C.O.D. Call for C.O.D. Charges. 




To (312) 382-5244 

^\w'^f^T For Commodore e Atari 

cii (312) 382-5050 



For Apple • IBM 



CIRCLE #119 ON READER SERVICE CARD 



COA/IPUTER DIRECT (A Di^rision of PROTECTO) 



*t 9 _ 




13" Color Monitor 

Removable Anti-Glare Screen 




All prices expire 8-31-87 



List $329 



Monochrome Monitor 

• 12" Screen • 80 column 





Add $10.00 shipping. 



List $249 



14" RGB & Composite 
Color Monitor 

Sale 




$ 



237 



Plus Green Screen Option Switch. 



List $399 



Magnavox TV Tuner 

• UHF/VHF • Front Panel Programmable Selection 
Buttons • Rabbit Ear Antenna • Fine Tuning And More 



Remote Scan TV Tuner 

• Works with Monitor/TV • Sleep Timer • Access to 139 

VHF/UHF/Cable Channels • Signal Booster • Quartz 

Frequency Synthesized Tuner And More 




Sale 

^59 



Add $3.00 shipping. Additional MOO for APO/FPO. 



List $130 




Add $3.00 shipping. Additional $3.00 for APO/FPO, 



List $180 



Monitor Compo»ite Cable $9.95 * RGB 80 Column Cable $19.95 (Please specify computer type) 



15 Day Free Trial • 90 Day Immediate Replacement Policy 

• Best Prices • Best Service In U.S.A. • One Day Express Mail • Free Catalogs • 



Shipping, Handling & Insurancs Chargsa 

Add $1 4.50 (unless otherwise noted) for shipping, handling and insurance. Illinois 

residents please odd 6'/] % tax. Monitors can only be shipped to points served by 

United Parcel Service within the 48 mainland states. Enclose Cashier Check, Money 

Order or Personal Check. Allow 14 days for delivery, 2 to 7 days for phone orders, 1 

day express mail. Prices S Availability subject to chonge without notice. No 



VISA— MASTERCARD— CO. D. 



Monitors APO-FPO. 



CALL FOR C.O.D. CHARGES 




To (312) 382-5244 

^trgOr Fo"" Commodore •Atari 

Call (312) 382-5050 



For Apple • IBM 
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COMPUTER DIRECT (A Dl^flslon of PROTECTO) 





Complete C-64 System 

INCLUDES: Computer, Drive, Monitor & Printer 

Sale 

^399 




List $1045 



All this for •399 



Complete Atari System 

INCLUDES'. Computer, Drive. Monitor & Printer 

Sale 

^399 




All prices 
expire 8-31-87 



List $1064 



• Commodore 64 Computer 

• Commodore 1541c Disk Drive 

• Hi-Res 12" Monochrome Monitor 

Monitor Cable 

• Big Blue Printer w/2 rolls paper 

Big Blue Intelligent Interface 



Total Prices 



Complete Apple 
Compatible System 

Computer, Drive, Monitor. Printer & Software 

Sale 

$449 




All this for *399 



List 



• Atari 130XE Computer 

• Atari 1050 Disic Drive 

• Hi-Res 12" Monochrome Monitor 

Monitor Cable 

• Big Blue Printer w/2 rolls paper 

Big Blue Intelligent Interface 

• Premium Word Processor 



•249'" 
$29900 

•24900 

. ^9«5 

'199°° 
. 49« 

» 59" 



'1045 



Total Prices 



$1124" 




List $1228 



All this for only *449*: 

• Laser 128K Computer 

video, porallel & serial ports included 
runs virtually all Apple ll/llc/lle software 

• Hi Res 12" Monochrome Monitor 

• Big Blue Printer with interface and paper 

• Software Package: word processor, 

spreadsheet & data entry 

* Rm«Iv« $M M«rdiandlM Olicount When System Purchased at MM 

Appl«® l» th« raglttarad tradamark of Apple Computsra Inc. 



Complete IBM® XT 
Compatible System 

Computer. Drive. Monitor, Printer & Soft¥nre 

Sale 

^599 




All this for only *599: 



List $2495 



• 10 MHz / 51 2K Super Turbo XT Computer 

video, parallel & serial cards included 
3.2 MS DOS & G.W. Basic included 

• Hi-Res 12" Monochrome Monitor 

• Big Blue Printer with interface and paper 

• Softvrare Package: word processor, 

spreadsheet & data base 

IBM® li Iha r*glst«r«d tradmnarfc of Intarnoflonol Budiwmi MochlnM, Inc. 



Shipplna, Handling <> Inaurancs Chars»s 

Add $35.00 for (hipping, handling, and iniuranc*. Illinois rasidanti plaoM odd 
6%% taUt lax. Add $70.00 for ALASKA, CANADA, HAWAII, PUERTO RICO S 
APO-FPO ord«ri. All ord«r< muit b* in U.S. Dollars. WE DO NOT EXPORT TO 
OTHER COUNTRIES EXCEPT CANADA S PUERTO RICO. Enclose cashier ch«k, 
morwy order or personal check. Allow U days for delivery, 2 fo 7 days for phone 
orders, 1 day express mail. Prices S Availability subject to change without notice. 
VISA — MASTSW CAKD — C.O.D. Call For COD. Chora... 



A Division of PROTECTO 

22292 N. Pepper Road, 
Barrington, lU. 60010 

We Love Our Customers 




312/382-5244 

For Commodore 'Atari 

312/382-5050 

For Apple • IBM 
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TEVEX Computer Software 1 -800-554-11 62\ 



SSI 



Tisr 

PRICE 



73Dr 

PRICE 



i { 



MICROPROSE ."^ pX 



Battalion Commander 

Battle of Antletatn 

Battlecruiser NEW 

Broadsides 

Carrier Force 

Colonial Conquest 

Computer Ambush 

Computer Quarterback 

Cosmic Balance 

Field of Fire 

50 Mission Crush 

Gemstone Warrior 

Gettysburg 

Imperium Galactum 

Kampfgruppe 

Kamp. Seen. Disk 

Knignts of the Desert 

Mech Brigade 

Nam 

Operation Market Garden 

Panzer Grenadier 

Phantasie NEW 

Questron 

Rails West 

Rebel Charge NEW 

Reforger 88 

Six Gun Shootout 

U.S.A.A.F. 

War in Russia 

Wargame Constr 

Warship NEW 

Wizard s Crown 



1 I INFOCOM 



LIST OUR 
PRICE PRICE 



$40 
!;50 
!;60 

i;40 
seo 

S40 
!I60 
S40 

i;40 

!!40 
S40 

i;i5 

!!60 
!!40 
S60 
S20 
i;40 

;;60 
;;40 
sso 

!!40 
!!40 
!!50 
!;40 
!150 
!i15 
i;40 

i;60 

i!80 
!!30 
S60 
S40 



$27 
$33 
$40 
$27 
$40 
$27 
$40 
$27 
$27 
$27 
$27 
$12 
$40 
$27 
$40 
$15 
$27 
$40 
$27 
$33 
$27 
$27 
$33 
$27 
$33 
$12 
$27 
$40 
$53 
$20 
$40 
$27 



Conflict in Vietnam 

Crusade in Europe 

Decision in the Desert 

F-15 

Kennedy Approach 

Silent Service 

Solo Flight 

Top Gunner 



$40 $27 

!;40 $27 

i;40 $27 

!;35 $23 

!;25 $17 

!;35 $23 

!;25 $17 

$25 $17 
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LIST OUR 
PRICE PRICE 



1 



Ballyhoo 

Burueacracy NEW 

Fooblitzky 

Hitchhikers Guide 

Hollywood Hiiinx NEW 

Leather Godclesses 

Moonmist 

Zork Trilogy 

Invisiclues 



1 



$40 $27 

!!40 $27 

i;40 $27 

S25 $17 

SSS $23 

$35 $23 

$35 $23 

S60 $40 

$8 $6 



BRODERBUNa 



PRICE 



OUR 
PRICE 



1 



Champ. Lode Runner 

Lode Runner 

Lode Runner's Rescue 

Print Shop 

Print Shop Companion 

PSGrap.Lib. 1,S,3 



$35 
!;35 
!;30 
!;45 
S35 
$25 



$23 
$23 
$20 
$30 
$23 
$17 



[EPYZ 



LIST OUR 
PRICE PRICE 



1 



Summer Games 
Temple Apshai Trilogy 
EPYX Joystick A/EW 



$20 $15 
!;20 $15 
$20 $15 



[DKO^ 



LIST OUR ^ 

PRICE PRICE J 



'M r^i?5 



Clash of Wills $40 $30 

Great War 1914 $40 $30 

Metz/Cobra $40 $30 

Objective Kursk $40 $30 

Surrender at Stalingrad $40 $30 



Acrticfox NEW 

Alternate Reality 

Auto Duel 

Balance of Power 

Ballyhoo 

Blacl( Cauldron 

Borrowed Time 

Burueacracy NEW 

Champ. Wrestling 

Flight Simulator II 

Golden Path NEW 

Hacker II 

Hardball NEW 

Hitchhiker's Guide 

Hollywood Hiiinx 

Kings Quest II 

Kings Quest III 

Leader Board 

LB. Tournament Disk 

Leather Goddesses 

Mean 18 

Mercenary 

Mercenary 2nd City 

Moonmist 

Ogre 

Pawn 

Phantasie 

Phantasie II 

Roadwar2000 NEW 

S.D.L 

Shanghai NEW 

Silent Service 

Skyfox 

Space Quest 

Star Fleet I 

Starglider 

Sun dog 

Tass times 

Tenth Frame NEW 

2 on 2 Basketball NEW 

Ultima II 

Ultima III 

Universe II 

Winter Games 

World Games 

Zork Trilogy NEW 



$40 $27 

:;50 $33 

!;50 $33 

!;50 $33 

S40 $27 

i;40 $27 

ilSO $33 

!i40 $27 

i;40 $27 

!;50 $33 

ii45 $30 

S40 $27 

!;40 $27 

S30 $20 

!;40 $27 

S50 $33 

!;50 $33 

!;45 $30 

!;20 $15 

!i40 $27 

!;45 $30 

!;40 $27 

ii20 $15 

i;40 $27 

!;40 $27 

S45 $30 

!i40 $27 

i;40 $27 

!;40 $27 

i!50 $33 

!;40 $27 

i;40 $27 

!!45 $30 

SSO $33 

i;55 $37 

S45 $30 

!!40 $27 

!!40 $27 

i;40 $27 

!;40 $27 

!;60 $40 

seo $40 

!;70 $46 

i;40 $27 

!;40 $27 

$70 $47 



ELEC. ARTS 



LIST 
PRICE 



OUR 
PRICE 



1 



Age of Adventure 

Archon or Adept 

Autoduel NEW 

Chessmaster 2000 

Chickamauga 

Lords of Conquest 

Mail Order Monsters 

Movie Maker 

Music Construction Set 

M.U.LE. 

Ogre NEW 

One on One 

Racing Destr. Set 

Rommel NEW 

Star Fleet I 

Touchdown Football 

Ultima Ill-Origin Sys. 

Ultima IV-Origin Sys. 



$15 
$15 
$50 
S40 
S35 
i;33 
S15 
!;15 
S15 
i;i5 
!;40 

!;i5 

ii15 
S40 
!;50 
S15 
S50 

seo 



$12 
$12 
$33 
$27 
$23 
$22 
$12 
$12 
$12 
$12 
$27 
$12 
$12 
$27 
$33 
$12 
$33 
$40 



ETa 



LIST 

PRICE 



OUR 
PRICE 



1 



Alternate Reality 

Fight Night 

Flight Simulator II 

FS II Seen Disks (each) 

Guderian NEW 

Hacker 

Hardball 

Leader Board 

L.B. Tournament Disk 

Mercenary 

Mercenary-2nd City 

Micro League Baseball 

MLB 1986 Team Disk 

Music Studio 

Never Ending Story 

Pawn NEW 

Spy vs Spy I & II 

Triple Pack 

221-B Baker Street 

221 -B Case Library 

Universe 



$40 
!;30 
S50 
!;20 
!;30 
!I15 

i;30 

!I40 

i;20 

1130 

!;i5 

!140 
!!20 
il35 
SSO 
!i45 
!;15 
!;20 
!;30 

i;i5 

$90 



$27 
$20 
$33 
$15 
$20 
$12 
$20 
$27 
$15 
$20 
$12 
$27 
$15 
$23 
$20 
$30 
$12 
$15 
$20 
$12 
$70 



Tevex Blank Disks 

Box Qf 1Q, 5 1/4" D^nr) nnlyai2_ 




Same Day 
Shipping 

We ship every order the same day 
it's placed. Just call before 3:30 
and we'll ship your order via UPS. 
U.S. Mail service is also available. 



CALL TOLL-FREE 1'800'554'1162 

Write for FREE CATALOG 
Open 9-8 Mon. - FrI. 10-5 Sat. 

Georgia residents call 404-934-5059. ORDERING AND TERMS: C.O.D. orders 
welcome. When ordering by phone use VISA or MASTERCARD. When ordering 
by mall send money order. Include phone number. SHIPPING: Add $3.00 for 
snipping and handling charge. Georgia residents add 4% sales tax. Shipping 
for Canadian orders is $4.00 or 5% oT order. APO & FPO orders add $3.00 or 5% 
of order. Shipping for all other foriegn orders Is $ 1 0.00 or 1 5% of order. 
.All prices subject to change. 
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COMING SOON 

FOR THE 8-BIT SERIES 
Shiloh - SSI 
Dungeon - Datasoft 

FOR THE ST 
Bard's Tale • Elec Arts 
Breach - Omnltrend 
Defender of the Crown 
Gunship - MIcroprose 
Rings of Zilfin - SSI 
Shard of Spring - SSI 
Wizard's Crown - SSI 

TEVEX 

4205 First Ave, Suite 100 

Tucker, GA. 30084 

404-934-5059 



REGULAR FEATURE 




The End User 



THIS MONTH: 

A blast from 
the past, 
pla3/ing a new 
game, and 
Atari's 
credibility. 



by Arthur Leyenberger 



Arthur Leyenberger is a human factors 
psychologist and free-lance writer Jiving 
in New Jersey. He has been an Atari en- 
thusiast for more than five years. When 
not computing, he en;oys playing with ro- 
botic toys. 

CompuServe — 71266,46 
Delphi — NJANALOG . 



I was cleaning up my office recently, 
when I came across an official Atari press 
kit. It happened to be dated January 5, 
1985, from the first Consumer Electron- 
ics Show at which the "New Atari" ex- 
hibited. Although it's somewhat difficult 
to capture the the Zeitgeist of late 1984, 
it is interesting to reflect back to that un- 
certain time, especially after three years 
with Jack Tramiel and family at the helm. 

After the Tramiel purchase of Atari, 
from Warner Communications in the sum- 
mer of 1984, little information was forth- 
coming regarding recently announced 
products, new^ products or the future of 
the company. However, as I talked to what 
few contacts I still had at Atari, they as- 
sured me that, to use the catch phrase of 
the movie 2010, "something wonderful is 
going to happen." 

Most readers of ANALOG Computing 
know that CES is held twice yearly: in Las 
Vegas in January and Chicago in June. Ar- 
riving at CES in January 1985, attendees 
were greeted by billboards displaying the 
message "Welcome to Atari Country! Re- 
gards, Jack." Others proclaimed the slo- 
gan "Power Without the Price" for the first 
time anywhere. However, the real action 
was at the Atari booth. 

Until January 5th, Atari had kept the lid 
on a secret that was to become the ST and 
XE lines of home computers. In addition 
to unveiling one new and one slightly new 
line, Atari announced the Explorer maga- 
zine, several peripherals, the "new" Atari- 



soft label and the Learning Phone (Plato) 
cartridge. As usual, a certain amount of 
vaporware was also shown. 

The ST computer line consisted of the 
130ST and 520ST. Both were said to de- 
liver "power without the price," used the 
Motorola 68000 microprocessor and fea- 
tured a visually oriented user interface — 
GEM. As we now know, the 130ST was 
never seen again. But the 520ST was, and 
still is, a knockout. Looking back, it's easy 
to see that Jack performed a real coup by 
offering an Apple Macintosh look-alike for 
one-third the price. 

A family of 8-bit computers were shown 
that January, as well. The 64K-byte 65XE 
was essentially an 800XL in a restyled 
package that was much cheaper to man- 
ufacture. The 130XE was the exciting 8-bit 
product at the time. With 128K memory, 
it was the lowest priced 128K computer 
of its kind. The 130XE was the first of the 
new breed to become available in the U. S. 
and has since become quite successful. 

There was some doubt, however, about 
the 65XE. It was apparently first released 
in Canada, and took about a year to come 
out in the States. Rumor was that Atari 
was waiting until they could clear their 
warehouses of thousands of 800XLs to in- 
troduce the 65XE in the U.S. 

The 65 and 130XEs were the stars of the 
8-bit family. As in most families, though, 
there were also some disappointments. 
Take the 65XEP, for example. This was an 
8-bit computer in a portable case. It fea- 
tured 64K of memory; one SVa-inch disk 
drive; a 5-inch, 40-column monochrome 
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monitor; and a shoulder strap. No specifi- 
cations like weight or price were given. 
To call it an abomination is to be kind. 

The other stillborn computer was the 
8-bit 65XEM. This was supposed to 
"bring out the Beethoven in you." Imagine 
a 65XE with the so-called AMY music 
chip, with eight voices and audio output. 
Keep imagining. 

With the advent of Jack Tramiel and the 
new Atari management team came the 
loss of customer support. The toll-free 
user support number was discormected; 
Atari service centers were shut down; 
nonexistent or dealer-supplied warranties 
arrived; and the existing 8-bit user was 
abandoned. A classic example of this is 
contained in the press release that dis- 
cussed the then-new Explorer. 

According to Neil Harris, publisher of 
the Explorer at the time, "We can reach 
thousands of our most active users at 
once. [Explorer] is a mass-market ap- 
proach to user support." Indeed it was. 
Nor was it the only mass marketing that 
was to become both an asset and a liabil- 
ity to Atari, as the STs eventually made 
their way into Toys 'R' Us and elsewhere. 
Mass marketing keeps the price down— - 
but at the cost of in-store support and 
reputation for the Atari name. What self- 
respecting business is going to buy a com- 
puter, albeit a very powerful computer, in 
a toy store? 

Atari also announced that it would be- 
come "a major force in the third-party 
peripherals market." Dot-matrix printers 
in color and black-and-white, disk drives 
and monitors were to be brought to mar- 
ket under the Atarisoft brand name in 
1985. Available at "rock-bottom prices," 
these peripherals were to be compatible 
with Apple, Commodore and IBM com- 
puters. Unless I've been asleep for the last 
two years and missed these products, I 
don't believe they ever existed anywhere 
but in Jack Tramiel's mind. 

Not only did some announced products 
never reach the development lab (let alone 
the market), some products that did come 
out took years. The XM-301 300-baud 
modem looked like a viable product when 
announced, in 1985. It was not seen in the 
marketplace till late 1986. The Plato car- 
tridge took years (it seems) before it was 
finally released. Ironically, Plato is now 
out of business. So it goes. 

Another press release seemed inadver- 
tently humorous. James Copland, ex-Vice 
President of Marketing, was credited as 
announcing "the worldwide implementa- 
tion of a new, revolutionary color coding 



approach, which makes the selection and 
purchase of Atari personal computers, 
peripherals and software as easy as 1, 2, 
3." Sam Tramiel was quoted as saying, 
"The new color code method will enable 
the consumer to make their own intelli- 
gent choice when adding on compatible 
components or selecting software. . ." 
What was this revolutionary marketing 
gimmick? XE products in red boxes and 
ST products in blue boxes. Wow! 

Unfortunately, amid the humor is a so- 
bering thought, as stated by the press re- 
lease. "Color coding is an extension of the 
'self-service' method of conducting busi- 
ness." Atari's continued emphasis on "self 
service," mass marketing and minimal 
user support has ultimately hurt the com- 
pany in the eyes of many users. Of course, 
we now also realize that Atari acquired 
thousands of unpaid customer support 
personnel, in the form of user group mem- 
bers. Atari has relied on — is still relying 
on — these people to provide support to 
new users. What have the user groups 
received from Atari in return? If I think 
of something, I'll let you know. 
Time warp. 

It is now June 1987. I'm traveling at 
40,000 feet from Chicago to Newark, re- 
turning from the 1987 Summer CES. So 
what's new in the world of Atari? Games.' 
As far as Atari was concerned, the 1987 
Summer CES was a "game show." 

The XE game system was first shown 
last January in Las Vegas. It's a $150 65XE 
computer cum game system, with detach- 
able keyboard and a light grni for shoot- 
ing games. It's packaged in an attractive 
gray box with "Miami Vice" inspired pas- 
tel Start, Option, Reset and Help buttons. 
A double-sided, double-density XE disk 
drive, 300/1200-baud modem and an 80- 
column adapter were also shown. 

No Mega STs were shown, nor was the 
Atari laser printer (and all through the 
night, not a blitter was in sight). The CD- 
ROM drive (shown nearly two years ago) 
was also conspicuous by its absence. Atari 
had on display their PC clone, to be avail- 
able by August. My personal view is; the 
Atari PC is a doomed product, because it 
lacks expansion slots. Sure it's the only 
"cheapo" PC clone with EGA (Enhanced 
Graphics Adapter, a high-resolution 
graphics standard), but the type of peo- 
ple who buy cheap MS-DOS PCs probably 
won't care. Without the EGA, the Atari PC 
becomes just another clone, with no slots 
for expansion — and "from a game com- 
pany," at that. 

Based on history, the prognosis for the 



roundup of new Atari products seems 
mixed. The XE game system will proba- 
bly come out this fall, just in time for 
Christmas sales. Although it seems an in- 
teresting product, it's really nothing more 
than a repackaged 65XE. A savvy con- 
sumer could easily buy a 65XE, the light 
gun and a couple games — and have the 
equivalent of the XE system for less. If you 
already own a 65XE or 130XE, all you 
need to do is buy the light gun and some 
new game cartridges. 

The XEP80 80-column adapter is sup- 
posedly available now in limited quanti- 
ties, but, since it doesn't currently work 
with any 8-bit word processors, not even 
AtariWriter, there seems no need to hold 
your breath for better product availabili- 
ty. Who knows when the 300/1200-baud 
modem will be out? Your guess is as good 
as mine. Likewise, for the double-sided, 
double-density disk drive for XE compu- 
ters. This is the latest incarnation of the 
on-again, off-again SVz-inch drive for the 
8-bits. And the Mega machines are sup- 
posed to reach your dealer's shelves by 
summer. No specific year was mentioned. 

I discussed some of the above concerns 
with Sam Tramiel, Jerry Brown (the new 
Vice President of U.S. Operations) and 
Neil Harris. The conclusion we came to 
was twofold. First, for many new Atari 
releases, the development time is no long- 
er (or shorter) than that for other major 
computer equipment manufacturers. How- 
ever, whereas other companies tend to be 
secretive about products before they're 
ready to ship. Atari seems to announce 
products shortly after they get the idea. 

Two fairly current examples of other 
companies' products come to mind. IBM 
recently introduced the Personal Com- 
puter System/2 series of four MS-DOS- 
based computers. Within weeks, you 
could go to a computer retailer and buy 
two of the new models. IBM announced 
that the other two computers, the high- 
end models, would be available this sum- 
mer. You can believe they will be. Like- 
wise, Apple's announcement of the Mac 
II and Mac SE was followed very shortly 
by product availability. 

Both Sam Tramiel and Jerry Brown 
agreed that premature announcements of 
new products have hurt Atari's credibili- 
ty. The good news: Atari will be striving 
not to announce or discuss new products 
until they're reasonably sure they can de- 
liver the items to consumers in a timely 
manner. 

I look forward to this new era in Atari 
credibility. H 
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by Clayton Walnum 



Music programs come in two varieties. 
The first requires some knowledge of mu- 
sic theory, forcing the user to compose in 
much the same way he would if he were 
writing the music out on paper. Keys and 
time signatures are set, and the traditional 
musical notation — notes, rests, sharps, 
flats, etc. — must be understood and incor- 
porated, in order to take full advantage of 
the program's offerings. These programs, 
though more advanced than their brothers 
described below, from an educational 
viewpoint, don't offer the music novice a 
very transparent interface. Not everyone 
has a technical interest in music; some 
people just want to sit down and, with a 
minimum of effort, have their computers 
serenading them with their favorite tunes. 

The second variety of music program 
strips music down, both intellectually 
and graphically, to its simplest form, al- 
lowing those who can't play even a radio 
to take their shot at being the next Mozart 
(or Phil Collins, depending on where your 
tastes lie). 

Music Painter falls into this second cat- 
egory. Instead of a screen strewn with 
stemmed dots waving varying numbers of 
flags, your masterpiece (it will be a mas- 
terpiece, right?) consists of colored lines 
which have been "painted" on the staff 
with a "paintbrush." The duration of each 
note painted is based on the length of the 
line drawn. (The principle involved is sus- 



piciously similar to that incorporated in 
the manufacture of those paper rolls used 
by player pianos.) Though this method 
doesn't teach much about musical nota- 
tion, it does graphically portray the the- 
ory behind the notation, giving the or- 
ganization of the musical piece a visual 
meaning. 

Don't get the idea that all music theory 
has been dumped by the wayside, though. 
The Music Painter screen display incor- 
porates that traditional five-line, four- 
space creation we all had to memorize 
back in elementary school (Every Good 
Boy Does Fine). Also, as you move your 
brush (really a small cursor) throughout 
the staff, the note (i.e., Gn, B, C) to be 
painted at that position appears at the top 
of the display. 

If you're the fussy type, you can still di- 
vide your melodious works of genius into 
measures. Measures, as interpreted by 
Music Painter, are fluid creatures, indeed. 
They can be set to any length. The longer 
the measure, the more notes you can fit 
into it. Actually, the use of measures is 
provided only as a convenient means of 
marking a piece off into sections. You do 
not have to stick to any beat-count rules. 
Music Painter doesn't care. It won't make 
any nasty noises if you mess up. It'll play 
anything. 

Because of Music Painter's lack of ad- 
herence to traditional notation, the limi- 
tations frequently found in this type of 
program are avoided. For instance, many 
music programs have difficulty with trip- 



lets (a triplet is three notes of equal length, 
played in such a way that the three com- 
bined are the length of two; for instance, 
three eighth notes that take up only one 
beat in 4/4 time). Music Painter plays 
triplets as effortlessly as Leonard Bern- 
stein (albeit a bit more mechanically). 

Once you've got your composition on 
its way. Music Painter's editing fvmctions 
let you to breeze through that inevitable 
fine tuning. You can insert or delete notes 
and spaces, as well as copy blocks of mu- 
sic from one portion of the piece to anoth- 
er. 

All of Music Painter's functions are ac- 
cessed from a graphic menu at the top of 
the screen. You can load and save data; 
set the number of notes per measure; set 
the current instrument (drums, piano, 
horn or violin); choose which of the three 
voices to paint with; choose the program's 
main function (paint, play forward, play 
backward, insert space, delete space and 
copy block); move forward or backward 
through a piece a measure at a time, or 
jump quickly to the beginning or end; 
turn any of the three voices on and off; 
and increase or decrease the tempo. 

If you're feeling lazy and just want to 
listen, rather than compose, the Music 
Painter disk comes with a dozen or so 
ready-to-play tunes. Just load 'em up and 
go. Loading is accomplished, as are all 
disk operations, from a special disk menu 
screen. There's no typing; everything is 
joystick controlled. 

One thing I especially like about Mu- 
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sic Painter is that, after the program is 
loaded, there's still plenty of memory left 
to work with. I entered the entire first 
movement of Beethoven's "Moonlight So- 
nata" (total playing time: SVa minutes) and 
still didn't run out of space. 

Nothing is perfect, of course. The abil- 
ity to individually adjust the volume of 
each voice is, sadly, not included amongst 
Music Painter's abilities. This can be im- 



portant when you want a melody line to 
stand out above the background harmo- 
nies. There are times in my arrangement 
of the Beethoven piece when the melody 
is barely discernible. 

To sum it up, Music Painter is a fine 
program for living-room musicians, who 
want to get those melodies tickling the in- 
side of their skulls out into the world 
where they belong. Its manual is simple. 



complete and straightforward, allowing 
you to get down to business almost im- 
mediately. Its "paintbrush" method of en- 
tering music is fun and easy to use, and 
offers few limitations to those who wish 
to do more advanced composing. The pro- 
gram's features summed with its low price 
equal a value you can't ignore ... A nice 
piece of work from Atari. (3 



•3 Four-Star Software 



continued from page 53 



LANGUAGES 

Action! (OSS) — An incredibly fast, 
high-level language, developed solely for 
the Atari 8-bit. Some of the swiftest soft- 
ware has been written in Action! 
"[The Action.' runtime library] lets you 
run your Action.' programs without the 
cartridge. A real boon to software devel- 
opers." — CB 

"Ij'you want to move up to a more power- 
ful, structured, high-level language. Ac- 
tion! is superb. It's also a great introduc- 
tion to either C or Pascal, in case you ever 
get an ST." — IC 

"I hardly know how to use Action.', but the 
software written with it that has passed 
through my hands has been most impress- 
ive." —LHP 
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R.O.T.O. — an Action! game. 

Atari BASIC (Atari) — The infamous 8K 
cartridge has been called everything from 
"great" to a "3-inch devil on Earth." 
"What can I say. . .so I haven't developed 
my programming skills over the years." 
— MD 

"It's not perfect, but it taught me my earli- 
est Atari lessons. First loves die hard." 
-CW 

BASIC A+ (OSS) — A super advanced 
version of Atari's BASIC cartridge, disk 
based, with many new additions. 



"A forerunner to other OSS BASICs, this 
product was the first advanced language 
for the 8-bit; and even with its bugs, I en- 
joyed using it." — LHP 

BASIC XL/XE (OSS) — The most recent 
versions of OSS Atari BASIC. 
"If you want to program in BASIC, then 
these cartridges contain the very best ver- 
sions of the language." — IC 
"A classic; this is the BASIC that should 
have been buiJt into the XLs and XEs." 
-CFJ 

MAC/65 (OSS) — The most popular 6502 
(Atari) assembler. 

"A macro-assembler and editor for ma- 
chine language programmers. Combines 
ease of use with a lot of power." — IC 
"Its macros are more powerful than any 
other assembler I've ever used, and quite 
simple to learn and use." — MR 
"The Rolls Royce of assemblers. About 90 
percent of assembly programs are written 
with this masterpiece." — CW 

Microsoft BASIC (Atari) — A two-disk set 
(later released on cartridge) of the BASIC 
made famous on micros. 
"The most versatile, most applicable, 
most ruie-bendable interpreter I've ever 
used." — DFS 

TELECOMMUNICATIONS 

Amodem 7.2 (public domain) — One of 
the most popular programs available. 
"This program, written in Atari BASIC, 
has everything I look jbr in terminal soft- 
ware, especially price — it's free for the 
cost of a download from most BBSs and 
telecommunication systems." — CFj 

Express! (public domain) — The com- 
ments below say it all. 
"This program receives a lot of ongoing 
support and enhancements from both 
authors and users." — IC 
"It has every feature I could ask for, and 
then some." — MR 



"I've never understood why this public do- 
main terminal program wasn't sold com- 
mercially. Makes all the high-priced pro- 
grams blush in embarrassment." — CW 

HomePak (Electronic Arts/Batteries In- 
cluded — Word processing, editing, tele- 
communications and more. . .all in one. 
HomeTerm is the terminal portion. 
"The best terminal program for the Atari 
8-bit computer." — AL 




HomePak 



"HomeTerm works quite well for commu- 
nicating with non-Atari telecommunica- 
tion systems like Delphi or CompuServe." 
-CFJ 

"fiuss Wefmore's entry into the telecom- 
munications arena remains one of the 
standards." — CW 

WORD PROCESSORS 

Action! (OSS) — See Languages. 
"True, it's not a word processor — but it 
has one of the best built-in text editors 
around." — CB 

AtariWriter Plus (Atari) — Mega-popular 
word processor. This expanded version 
gives 130XE owners more use of memory. 
Includes a proofreader and mail-merge. 
"So easy to use, even a lazy person like 
me can handle it." — LHP 
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"/ coil go back to AtariWriter after months 
of working on a different machine, and re- 
member how to use it almost instantly." 
— MR 

"As applicable as an electronic piece of 
paper." —DPS 

"1 used to think the old AtariWriter was 
great. This neiv revision is nothing short 
of marvelous." — CW 

Letter Perfect (LJK) — This small St. 
Louis company did an outstanding job on 
their word-processing program, released 
back in 1981. Many 400/800 users will 
remember this product took the Atari 
community by storm — deservedly so. 
"If has served me well over the last sev- 
en years. I( was my first and only word 
;)rocessor/or (he Atari 8-bit. I never found 
Hioson to try anything else." — MD 
"The firs! [8-bi(J word processor; only re- 
cendy have I started using AtariWriter 
Plus. . .at gunpoint before the rest of the 
staff." —LHP 

Paperclip (Electronic Arts/Batteries In- 
cluded) — A modern-day word processor, 
touted as easy-to-use and feature-packed. 
BI is gone now, but this product lives on 
in many a (computer's) memory. 

"Powerful and complex, this is jny word 
processor of choice on the XE. Comes 
ivilh spelling checker for the XE's extra 
HAM." —IC 

"A very close runner-up to Writer's Tool." 
-CFJ 

"Definitely the best — accept no substi- 
tutes." — AL 

The Writer's Tool (OSS) — The leader in 
8-bit languages released this product sev- 
eral years ago, and it still remains the fa- 
vorite of many a user. 
"Still my favorite 8-bit word processor. 
Writer's Tool puts many of the ST's pro- 
grams to shame." — CFj 

IN ADDITION 

Atari Planetarium (Atari) — Atari call- 
ed this product "your window to the uni- 
verse." Over 1200 stars, 88 constellations, 
300-plus deep-sky objects and Halley's 
Comet are all here. For enthusiasts and 
casual observers alike. 
"A (rue quality produc( and excellenf in 
all regards." — LHP 

DiskWiz (Allen Macroware) — A disk 
editing repair and duplication package for 
Atari and Percom disk drives. Other fea- 
lures include hardcopy to any printer, file 
link trace and block move. DiskWiz was 
followed up by DiskWiz 11. 
'An excellent disk sector editor/copier I've 
nu^overad more than one accidentally do- 
lf.'((ul file with this program." — CFj 



Mastertype (Lightning) — Not simply a 
game, but one of the most popular educa- 
tional programs ever. 

"The bes( typing program around and it's 
a skill that's important for everyone (o 
learn — even more impoitant in the fu- 
ture." —AL 

MidiTrack ffl (Hybrid Ai-ts) — A MIDI se- 
quencer with 16 tracks and tape recorder- 
like operation. Utilizes the 130XE's extra 
memory to add more note storage capa- 
bility and other features, as well. 
"Somewhat difficult to use and quirky at 
times, this MIDI sequencer is nonetheless 
quite powerful. [It also happens to be the 
only full-featured sequencer for the 8-bi( 
Atari computers, to my knowledge.)" 
— CFj 

The Next Step (Sierra On-Line) — The 
first major character set designer. It even 
allows users to modify and create four- 
color characters. 

"We used this extensively to create char- 
acter sets for our games." — CB 

SpartaDOS 2.3 (ICD) — Very powerful 
Disk Operating System just under $40.00; 
tons of features and easy to use. 
"This DOS supports every other DOS for- 
mat for the 8-bit, is extremely fast and 
poiver packed with many helpful utili- 
ties." —MR 

HARDWARE 

Axlon 128k Rampower (Axlon) — This 
long-gone company turned the Atari 8-bit 
world on its ear with this (at the time) ■ 
mind-blowing expansion board. 
'Although I own a 130XE with its extra 
64K RAM. I still get more use from my 
original Atari 800 with Axlon RAMdisk 
installed." -CFj 

Commodore Video Monitor 1702 (Com- 
modore Business Machines) — What can 
we say? The competition made great mo- 
nitors. 

"Separate chroma and luminescence in- 
puts make this one of (he best moniiors 
you can hook up to an 8-bit Atari." —CB 

Corvus 10-Meg Hard Disk Drive (Corvus 
Systems) — A bulky (by today's stan- 
dards) hard disk, which was the number 
one hard disk for the lucky few 8-bitters 
having one. 

"They stopped making them four years 
ago: the DOS ivas a pain to use, and it 
only vA'orked with old 400s and 800s — 
but for sofdvare developm(!n( back then, 
there was nothing to compare." — CB 

Full View 80 (Bit-3) — This board gave 
any 800 excellent 80-column readability 
on a monochrome monitor; the board fit 
into the computer and a wire out the back 



plugged into the monitor output on the 
side. . .all for only $349.00. 
"Letter Perfect and the Bit-3 80-column 
board make my Atari the perfect word 
processing computer" —MD 

Indus Disk Drive (Indus Systems) — The 
company said of their disk drive: "Looks 
like a Ferrai-i, drives like a Rolls, and parks 
like a Beetle." This $449.00 drive was "hot 
stuff," although the word processor that 
came with it wasn't. 
"A sleek and mean machine. Unfortunate- 
ly, the manufacturers are no longer with 
us." — CW 

MIO Board (ICD) — This product does it 
all: up to 1 meg of on-line RAM; printer 
interface with buffer; RS232 port; hard 
disk connection; and 80-column capabil- 
ity is on the way. 

"The product of the century for the 8-bit 
Atari is none other than the MIO board 
from ICD." —MR 

"The machine that makes a present-day 
computer out of the 8-bit Atari." — DFS 

Probumer (Thompson Electronics) — 
"This is an EPROM burner cartridge with 
built-in sojtware. . .great for creating your 
own cartridges or modifying the OSI" 

-rc 

RamRod XL/Omnimon/Omniview XL/XE 

(Newell Industries) — RamRod XL in- 
cluded OSNXL, Fastchip XL and Omni- 

mon XL — three very powerful additions 
to the 800XL, which were comprised of 
a revised OS, enhanced floating-point 
math chip and 80-column upgrade. 
'A mother board with a switch to toggle 
between the old and new OS— no more 
need for a translator disk! Also provides 
the Oirmimon monitor/debugging tool." 
-IC 

"A resident MIL debugger that's even ca- 
pable of interrupting running programs, 
Omnimon has proven to be an indispens- 
able tool." -CFJ 

There you have it — the varied views 
from the critical commentators. We hope 
this gives you some insight into the soft- 
ware you'll want to own and use. H 
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by George G. Stepanenko 

There's probably no computer user who 
hasn't — at one time or another — appre- 
ciated the irony in flipping through a pile 
of disks, mumbling, "Now where did I put 
that so-and-so file!?" We use computers 
to manipulate and organize every sort of 
information, then find that the environ- 
ment itself is in need of organization. 
We're constantly losing track of that im- 
portant resume, article, letter, program or 
datafile — whatever is irreplaceable or can 
only be recreated at a great cost of time 
or effort. For those who aren't too quick 
with labels, or who lack a good mental 
indexing system, a tool like Disk Library 
could be the solution. 

The principle behind a disk (file) index- 
ing program is fairly simple; take the file- 
names from the directory of each disk and 
put them into one big file — a list. Allow 
users subsequently sort the list, modify it 
with additions and deletions, display it or 
print it, and the program's complete. With 
good cross-indexing features, speed and 
ease of use, such a program can turn a 
chore into a pleasure. 

Disk Library is good to excellent on all 
these points. A double-click or keystroke 
displays a directory of the disk currently 
in the specified drive (A or B); another 
determines whether that information will 
be added to the file, or ignored. It's as sim- 
ple as that. When a directory is filed, the 
program automatically sorts it, according 
to the user's choice. Sorting and resort- 
ing criteria are determined by clicking on 
a standard GEM menu: by name, size, 
type or date. And another pull-down 
menu determines whether the screen will 
display disknames only, folders, files or 
all. No matter which display is chosen, all 
information is stored and sorted, so a sin- 
gle point-and-click will change the screen 
output. 

For those who may have wondered 
what point there was — during the format- 
ting process — in giving the disk a name: 



Disk Library uses that information for in- 
dexing. If a disk has not been named, the 
program requests a temporary name to 
identify it. You're warned if that name is 
not unique, so files won't be over-written. 
An "option" menu allows you to physical- 
ly name or rename the disk. 

Disk names are displayed in bold, fold- 
ers in italic, and filenames in normal text. 
The standard information — name, exten- 
der, size, date and time — is shown on the 
left of the screen. Clicking next to any of 
the entries brings up a box which displays 
cross-references and allows for text entry 
up to forty characters. This text is then 
display on the right side of the screen, as 
"comments" that can be toggled on and 
off. The printed output is also determined 
by your choice of screen display, so it's 
easy to generate different lists. 

On a 520ST, Disk Library allows for ap- 
proximately 2120 entries and 2150 com- 
ments. Each file, disk or folder name takes 
up one entry. Because this is a memory- 
based (rather than disk-based] filing sys- 
tem, the maximum will vary, depending 
on whether any disk accessories have 
been installed. With a memory-based pro- 
gram, size limitations are inevitable, but 
you get the benefits of relatively fast and 
flexible filing and sorting routines. Actu- 
ally, 2000 entries would generate over 
thirty pages of printed listings. The man- 
ual recommends that you create a num- 
ber of smaller directories — according to 
personal methods, and preferences for 
collecting and storing files and disks — 
which can be "merged" into one large file. 

The recommended procedure is a good 
idea on two scores: any very large list of 
similar entries becomes awkward and less 
useful for quick reference as it grows, and 
the program gets slower as the number of 
disks on file increases. Speed is a relative 
concept: there are no delays in Disk Li- 
brary long enough to send you scurrying 
off for a cup of coffee, but after the tenth 
or fifteenth disk, there is evidence of large 
reorganizations in the ST's memory. The 



indexing is certainly much faster than in 
any disk-based filing program, and the re- 
sorting and search features take very little 
time. 

Disk Library's manual is one of those 
which make sense after the program has 
been used a while. As mentioned, the 
program is very easy to use, and it's sur- 
prising that the manual could have so 
much information, yet so little instruc- 
tion. All of the features and functions are 
thoroughly and correctly described, but 
there is a feeling of distance, as if the 
programmer explained everything by tel- 
ephone to the person who wrote the book- 
let. It's not a drastic problem, just one of 
those things which leave a vague discom- 
fort in the user's mind. 

Is Disk Library worth the price? Since 
it offers the features required for the task 
at hand — organizing and indexing a disk 
collection — and implements them fully, 
quickly, easily and without obvious bugs, 
one's first reaction is yes. But since it be- 
longs to a class of utilities that might be 
termed "single-purpose," and won't be 
used that often, there might be some re- 
sistance to it, based on cost. We've already 
seen utilities like RAMdisks, print spool- 
ers, and spelling checkers fail commercial- 
ly under the onslaught of public domain 
programs which do the same things — of- 
ten, better. The single-purpose programs 
which do survive in the marketplace are 
those which do what they promise to do, 
without unnecessary bells and whistles, 
and sport a sensible price tag. ST owners 
seem to expect — not unreasonably — soft- 
ware to be in line with the cost of the 
computer and with its "use-full-ness." H 

George G. Stepanenko has been an 
Atari enthusiast since 1981. Having sold 
computers in a department store, he's 
been with an Atari-only store for over two 
years now. He's an original member of 
Calgary Atari ST user's group and a con- 
tributor to their newsletter. 
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Part 2 of our 

survival guide for the novice programmer. 



by Clayton Walnum 



In Part 1, we covered a lot of general tips that will help 
you avoid certain nervous disorders common to program- 
mers who've developed bad habits. We also mentioned The 
Institute for the Incredibly Nervous, a place where program- 
mers who develop these bad habits usually end up. This 
time aroimd, we'll get into some more detailed debugging 
techniques. With any luck, once you incorporate these ideas 
into your programming habits, you'll be able to fire that 
shrink once and for all. After all, he doesn't need your help 
to pay for his Rolls Royce; he's got all those Commodore 
owners banging on his doors. 

More about structure. 

Before we get into the debugging techniques, there are 
a few more things you should keep in mind when writing 
your code. The first is a hard and fast rule that should never 
be broken: don't reference REM lines in your code. More 
specifically don't point GOTOs and GOSUBs to REM hues. 
If you do, and later on decide you'd like to delete some of 
the REMs to increase available memory, you're going to have 
a horrendous mess on your hands. 

Another tip, one that will help you increase the speed 

of your program, is to keep long FOR . . . NEXT loops at the 

top of your code. The further down in your program you 

place your loops, the longer it'll take for them to run. Try 

it and see. Load up any long BASIC program you have 

handy and add these lines: 

e ^OTO 32600 

1 FOR X=l TO 256:S0UND 0, X, 10, 10 : NEXT 

X:END 

32600 FOR X=l TO 256:50UND 0,X,ie,10:N 

EXT X:END 

Run the program. You'll be able to hear the sound regis- 
ter change as the loop goes through all its iterations. Now 
change Line to the follow^ing and rerun the program. 



GOTO 1 

Hear the difference? The soimd loop placed at Line 32600 
was located down near the end of your program, so it took 
much longer to perform its trick than did the one placed 
at Line 1, right at the top. You can also speed program exe- 
cution up by keeping the complete loop on one line, as we 
did in the example. 

Keeping loops on one line (when it's possible) is an ex- 
ample of programming style. Good style will help you in 
every aspect of programming, making your code easy to 
read and follow. Don't just fill up each line as you go, pay- 
ing no attention to what you're doing. If you fill each line 
to its maximum length, you'll have difficulty if you have 
to add something to the line later on. Use some common 
sense when you're programming, grouping related items on 
the same line, not just anything that fits. Look at this 
example: 

100 PRINT "HERE ARE SOHE NUMBERS" : FOR 

X=l TO 10 

110 PRINT X:NEXT Xl 

E NUMBERS": FOR X=l 

120 NEXT X 

What a jumbled mess! There's no logic at all to the way 

the statements are grouped, plus it ignores the rule about 

keeping loops together on a single line to increase speed. 

This is better: 

100 PRINT "HERE ORE SOME NUMBERS" 
110 FOR X=l TO ie:PRINT XiNEXT X 
120 PRINT "HERE ARE MORE NUMBERS" 
130 FOR X=l TO 10: PRINT X+lOlNEXT X 

Hey, that's much nicer, huh? The program's operation is 
clearer, and, since the program's actions are broken up in 
a logical way, there's little chance that you'll have to rewrite 
one of the lines to accommodate a later change. For instance, 
if we wanted, later on in the program, to perform just the 
loop in Line 130, we could just GOTO 130. But in the first 
example? Ouch! 



IPRINT "HERE ARE MOR 
TO 10:PRINT X+10 
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Simply put, you should think of each line of BASIC as 
a subroutine. Don't let unrelated things clutter it up. Of 
course, this doesn't mean you should include a long sec- 
tion of single-statement lines just because the statements 
aren't related. That takes up a lot of extra memory for line 
numbers. In that situation, it's okay to group the statements 
on one line. We're using common sense, remember? 

Birds of a feather. 

And, since we've mentioned subroutines, here's another 
piece of wisdom: it's a good idea to group yoiu' program's 
subroutines, to place them all together in the same area of 
your code. Some programmers like to put them at the be- 
ginning of the program, using a GOTO to jump over them 
when the program is rim. Others like to put them at the end 
of the program, out of the way of all the action. 

There are advantages and disadvantages to both methods. 
Putting all the subroutines at the beginning of the program 
means that they'll run faster. This is because, whenever Atari 
BASIC encounters a GOSUB instruction, it starts at the first 
line of your code and reads through until it finds the subrou- 
tine. If your subroutines are buried at the end of the pro- 
gram, it'll take BASIC longer to find them when they're 
called. The disadvantage to putting them at the top of your 
program is that, even as it speeds up the execution of the 
subroutines, it slows down the rest of the program. How 
much it slows down depends on how many lines of subrou- 
tines you have. 

Mini-programs. 

Many times, you'll find yourself having to develop a 
subroutine that accomplishes something in the background, 
something the user is unaware of. Maybe it's the solution 
of a complicated mathematical formula, or maybe you're 
designing an artificial intelligence routine for a game that 
requires a computer player. This type of thing, especially 
if it requires a large amount of code, can be more easily de- 
veloped if it's written as a mini-program, a freestanding 
piece of code that can be merged with the main program 
once it's been completed and debugged. This saves you from 
having to run the main program and wait for the section 
you want to test to come into play. 

But if you want to use this technique, there are some rules 
which must be followed. First, the code must not reference 
any lines that are external to itself; it must be a complete, 
self-contained unit. Second, the routine should be a subrou- 
tine in the BASIC sense, a program section that's called with 
the GOSUB statement. That way, you don't have to worry 
about saving space for it somewhere in the middle of the 
main program. You can just place it wherever you've group- 
ed the rest of your subroutines. The best thing about this 
technique is that it forces you to think structured program- 
ming. 

Of course, to stand on its own, your mini-program may 
require some extra code, program lines that won't appear 
in the final subroutine. For instance, strings will need to 
be DIMed, and any data elements the routine expects will 
have to be initialized. Just add these odds and ends to the 
beginning of your mini-program and delete them when 
you're ready to merge it with the main program. 



Efficient use of time. 

Once you get the first version of your new program typed 
in, you're going to find out that — no matter how careful 
you were, no matter how many hours you labored over your 
program's logic — the computer just doesn't think the way 
you do. 

Let's all say it together and get it out in the open: com- 
puters are stupid machines! 

There, didn't that feel good? (If not, you haven't done any 
real programming yet.) They can't do anything without help. 
Like small children, they take everything you say literally, 
with no common sense applied. This phenomenon gives rise 
to the ever-popular programmer's scream of frustration: "Do 
what I want, not what I say!" 

The point? Your program — unless it's extremely short — 
will never run properly the first time around. But you've 
already figured that out, right? I'm just stating the obvious. 
What I'm really trying to get at is that, the first time you 
run your program, there'll be dozens of little problems — 
problems that don't necessarily affect the program in a fa- 
tal way — that you'll want to fix up the instant you see them. 
Gee, wouldn't that prompt look better if it was centered? 
Uh-oh . . . look at that misspelling. And that green on red 
just doesn't cut it. 

Don't bother with it yet! Just jot dovim a quick note and 
continue on your way. Don't stop the program to fix any bugs 
imtil you're forced to. Then go back and fix everything on 
your list. Your debugging time will be cut in half if you avoid 
the temptation to jump on those minor corrections right 
away. And you'll have the satisfaction of knowing that you're 
making the rules, not the computer. You have to keep those 
silicon and plastic monstrosities humble, you know. Let 
them think that they've got you wrapped around their 
microchips, and you'll never get any peace. (Paranoid? Who, 
me?) 

Some debugging techniques. 

Some program bugs are easy to find and fix. Maybe you 
just have to reposition a line a little, or correct a misspel- 
ling. To isolate others will require some cleverness on your 
part, as well as the ability to recognize certain symptoms 
of program misbehavior. 

In order to locate bugs (program bugs, not those icky 
things that jump out of corners and make you scream), the 
first thing you have to do is find out exactly what your pro- 
gram is up to. You need to know what sections of the code 
are being performed and when they're being performed. In 
other words, you have to know the program flow. Unfor- 
timately. Atari BASIC doesn't supply a trace function; you 
have to do it the hard way. 

The easiest method of tracing program flow is to add print 
statements to each section you're interested in. Things like 
this will tell you exactly where your program is at any giv- 
en time: 

100 ? "Entering LOAD routine" 
110 OPEN »l,4,0*"l>!DftTAFILE.DflT" 



290 CLOSE »1 

300 ? "Leaving LOAD routine" 
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Of course, this method won't work well if your program 
relies on a graphic display, one that won't let you print to 
the screen without creating intolerable disorder. In that case, 
you'll either have to live with the messed up screen or step 
through the program using END statements to stop it at cer- 
tain intervals. This means reading through a program and 
placing a STOP or an END statement at the end of the first 
(in order of execution) section. If the program gets that far 
without whining, remove the first STOP and place a new 
one at the beginning of the next section. If the program 
doesn't end where you've placed the STOP statement, then 
you know that the flow is incorrect. Little by Utile, you'll 
be able to track down your problem. 

Testing variables. 

Many times, a bug in your program will boil down to a 
misbehaving variable. This type of error can be responsi- 
ble for anything from displaying the wrong score in a game 
to locking your computer up as tight as Alcatraz. Anything 
can happen if a variable contains an invalid value. 

You can check the values of variables in much the same 
way we checked program flow. We had two methods, 
remember? The message printing method and the stop-and- 
go method. The first requires the strategic use of PRINT 
statements. Wherever you want to check the value of a vari- 
able, just print it out: 

109 ? "Entering LOAD routine" 
185 ? "FILES = "; FILES 

110 OPEN «1, 4,0, FILES 

In the above example, we're checking to make sure that 
FILES contains a valid filename. If we get something that 
looks like a two-year-old's first typing attempt, we'll know 
why the file's not opening properly. 

We can also use the STOP statement to check the value 
of a variable. This is especially helpful when we want to 
find out exactly where a variable is going sour on us. Use 
the STOP statement to stop the program after each step. 
When the program stops, examine the contents of the vari- 
able by printing its contents in the immediate mode. Then 
move the STOP statement to the next step and rerun the 
program, 

Analyzing the variables (especially if there are several that 
may be causing you problems) is a long and meticulous 
process, but it's the only way you can find out where the 
problem is. 

By the way, you can use your computer's BREAK key to 
simulate the placing of STOP statements. However, with this 
method, it's impossible to be sure where you are in the pro- 
gram, unless the computer is staying within a small sec- 
tion of the code. For this reason, using BREAK to analyze 
variables works best when the program is waiting at a 
prompt or performing many iterations of a loop. 

With either the STOP or BREAK key method, you may 
be able to jump right back into the program with a GOTO 
or CONT, and so avoid wading through all the program sec- 
tions you've already verified. 

The TRAP demon. 

Atari BASIC supplies us with a handy instruction that will 
allow a program to continue running when an error is en- 
countered. I'm talking, of course, about the TRAP statement. 



If you should put the line TRAP 400 at the beginning of 
your program, for example, the next time the program en- 
counters an error (not a logic error necessarily, but the type 
of error that stops the program dead and prints an error mes- 
sage to the screen), program execution will jump to Line 
400. Great, huh? 

But what you may not know is that this little bugger sports 
a double-edged sword. Examine the following code. What 
do you think will happen? 

10 TRAP 100 

20 K=-l 

30 N$CN,Nl="a" 

Give up? You'll get the delightful error message ERROR 
12 AT LINE 30. 

Now we look up ERROR 12 in our trusty BASIC manual 
and find out it's a "line not fotmd" error. Huh?! Line 30 
doesn't have a GOTO or GOSUB, so how could we possi- 
bly come up with an ERROR 12? 

The TRAP statement in Line 10 calls for program execu- 
tion to jump to Line 100 in the event of an error. At Line 
30, we try to index a string with a negative number (a ma- 
jor no-no), generating the error. The program then tries to 
find the nonexistent Line 100. Since BASIC last executed 
Line 30, it generates the error at that line. Perfectly logical 
when you think about it, but if you forget this little peculiar- 
ity of the TRAP statement, you're going to experience new 
depths of frustration when it's time to start debugging. 

Another problem with TRAP statements is that you don't 
get a chance to see what error occurred. This is all right 
when the error is one you were expecting, but, in our above 
example, the ERROR 12 was really the second error. What 
we need to know (besides the fact that Line 100 is missing) 
is that our string index value is bad, which should give us 
an ERROR 3 AT LINE 30. 

So, if you're going to take advantage of TRAP statements 
in your programs, you're going to need a way to check the 
error code returned. If it's the one you want, you just jump 
to the line that handles it. If it's not, you need to print out 
what the error was and stop program execution to correct 
the problem. 

A good way to handle this is to jump to an intermediate 
error handhng routine. Look at this code: 

10 TRAP 40 

20 OPEN ttl,4,0,"D:DATflFILE.DflT" 

30 INPUT «1,A:G0T0 30 

40 CLOSE ttl:END 

This demonstrates one way to use a TRAP statement, as well 
as the type of problem you might run into if you do. In Line 
30, we want to continue reading the file DATAFILE.DAT un- 
til we reach the end, but, since we don't really know how 
big the file might be, we can't use something like a FOR 
. . .NEXT loop. Instead, we use a TRAP statement so that, 
when we get to the end of the file, the resultant error 136 
(end-of-file error) will cause program execution to continue 
at Line 40, where the file is closed and the program ends. 
But what happens if we accidentally put some string data 
in the file, buried in with all the numerical input? We'll get 
an ERROR 8, not the error we expected. Unfortunately, the 
TI^AP couldn't care less. All it knows is that an error was 
encountered. It jumps to Line 40, closes the file and ends 
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the program — leaving us completely unaware that, not only 

was the entire file not read, but we have bad data in the 

file, as well. The following is a way to get arovmd this 

problem: 

18 TRAP lOD 

20 OPEH »l,4,e,"D:DATAFILE.I>aT" 

30 GET ttl,A:GOTO 30 

40 CLOSE »l:END 

180 IF PEEK (195) =136 THEN 40 

118 ? "ERROR ";PEEKC195);" AT LIKE ";P 

EEK (186} +256»PEEK (187} 

120 END 

Here, when an error occurs, program execution jumps to 
Line 100 where we check location 195 (the address where 
BASIC stores the last error number) to see if we did indeed 
get to the end of the file (ERROR 136). If the error's correct 
then we let Line 40 do its thing. If the error wasn't 136, the 
error that occurred and the line number (found by the for 
mula PEEK(186) + 256*PEEK(187)) at which it occmred are 
printed to the screen, and the program ends. 

Once you get your program running properly, you can 
delete this extra error trapping if you wish (just remember 
to change all the TRAP statements to point to the right lines). 
I suggest you leave it in unless you're running out of mem- 
ory and need the space. You never know. 

Down with the Institute! 

Now that you're armed with a slew of new programming 
techniques — all designed to make your work more enjoya- 
ble and frustration free — you need no longer worry about 
being committed to the Institute for the Incredibly Nervous. 
The guys in the white coats aren't going to be too happy, 
but, hey, they've got enough to keep them busy. Every day 
they're out in programmer land picking up new residents 
for the Institute, always on the lookout for someone sitting 
in front of a bludgeoned monitor with a hammer in his hand, 
mumbling things like, "What's a backup?" 

Next time you see those white-coated gentlemen just 
wave and smile. And say "hi" for me. H 
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Si*' NX lOmOPSComp 119999 Call loi li 
Sill NP lO.NlQPS Comp 1179 95 __^_ 

■■KHEcnani^H I'm-in^ii/.Hi^ ■■m'H-iu'm.M 

Ai.M 102 7 LOOtr Conn ) 69 95 A'ir, B50 169 95 130XE 199 95 

A..-, 1025 01. Conn 19799 MPPI150 (30 95 BOOXl 

Ann 820 D.r Conn 1 44 95 Ape Fire ' '5 Ss 800 4BR 

AiiomGP550AT Oil ConnlI2495 U Piml G4K 1 55 96 400 

Comie>220A1 On Conn 1 99 95 

Okimaii IOCdIo' »/PIP 111595 

Ntw 300 baud rnodim lU.N with purchau ol niw P fl Connictior' 



I6K 



ESI 



IKUWiH 



I 63 99 



... IIIIIIIIIIIMi 

159 95 Commodott 1 707 1149 95 
29 95 SiUiiSClOO 1139 95 



...an^i much morel 

2121 4th St. • Boulder, CO 80302 

Voice (303) 939-8144 M-F 2-11 pm MT Modem (303) 939-8174 24 hours 

CB. ffl. B. personal check. C.O.D. 

Call for order inlormation or lor catalog: (303) 939-8144 

"All Products Guaranteed" Pficea »ubi«cl lo crwnao. Call tor mo«t recam prtcaa 
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ST notes 



by D.F. Scott 



Newsworthy happenings in the ST world. 



The Return of the 
Brothers Carlston. 

After a wait of two years, to see if the 
ST was going to be a success, 
Broderbund — the software company 
built by Gary and Douglas Carlston, 
whose roots are linked to the former 
Adventure International and Synapse 
companies — is finally waving the ST 
banner. That banner is printed, one 
might imagine, with the aid of The 
Print Shop; and authors David Balsam 
and Martin Kahn are writing the ST 
version of that program from byte 1, 
for a GEM-based program with a new 
"look-and-feel." 

As Broderbund marches cheerfully 
into the ST's parade of developers, the 
spectators are shouting, "What took 
you so long?" We voiced that question 
to Broderbund's Western Regional 
Ambassador, Carri J. O'Loughlin, who 
states she feels ST product 
development caused the delay: "Every 
time we go to a show, everyone says, 
'What are you doing for the ST?' That 
was the most common question; and 
our salespeople were all saying, 
'Uh. . .uh. . .' We couldn't talk about 
things because they were in 
development. We're not supposed to 
talk about things until two months 
before they're released." 

With three of the four new ST 
products in Broderbund's line having 
been produced outside the company, 
we might assume there's more in the 
lab we don't know about yet. The 
Art/Film Director package was 
developed by Andromeda Software (at 
one point, apparently, they were to be 
Mirrorsoft products, but somehow that 



changed), and Karateka is being 
ported over by Jordan Mechner, also 
an author for Andromeda. Andromeda 
is the company that produced the ST 
version of Crystal Castles for Atari. 

"The reason we don't talk about 
developments in advance," divulges 
O'Loughlin, "is because sometimes 
things happen and the product isn't 
released. We had one for the IBM, and 
we ended up never doing the product. 
It's embarassing when that happens." 
O'Loughlin said projects could be 
cancelled because sales projections do 
not exceed production costs. 

The beta-test version of the ST Print 
Shop suggests Broderbund won't get 
into any conflicts with other 
companies over visual copyrights. 
Utilizing GEM, specific border or clip- 
art items can be selected pictoriaJJy, 
not by name, from a "toolbox" 
window, then placed into the GEM 
clipboard. From there, one may use 
visual layout techniques to create the 
page piece by piece, rather than give 
the program directions and have it 
conjure up the result internally. 

Art; Director resembles Neo- 
Chrome — more accurately, it mimics. 
Neo, even in the use of the half-page 
functions box and magnifier window. 
The differences lie in the special 
effects department, where Art Director 
may execute repetitive "pastes" of a 
"cut" object when the user holds the 
mouse down and drags it. The 
program also allows warping of the 
image, by producing imitation 
"bulges" in or out of the art. Another 
unique feature draws in the 
background a 3D perspective grid, 
with vanishing points to aid in the 



drawing of realistic objects. Film 
Director utilizes backdrops and eels 
created with Art Director, and perhaps 
music, for cartoon-type eel animation. 

Jordan Mechner's Karateka for the 
ST, although yet another karate 
program, appears very fluidly 
executed. Game play and premise are 
identical to its 8-bit predecessors, but 
the animation of the martial arts 
characters — including the female 
"victim" fans have nicknamed "Loni 
Anderson" — are proportionate figures, 
appearing more like humans than bean 
bags or jumping beetles. 

But are Broderbund's initial offerings 
just imiform drops in an already-full 
bucket of the same substance? Or is 
the word/data-processing market too 
saturated itself to re-enter with a 
modified Bank Street product line? 
Says O'Loughlin, "Our philosophy is: 
if we can do something better than 
what's out there, we do it. We just put 
out a typing program [Typei] for — 
right now — Apple, IBM and 
Commodore. There are ten million 
typing programs out there, but we feel 
ours is significantly better, and we did 
it." 

This reporter informed O'Loughlin 
that what the world needs now is a 
real space game, with explorative 
strategies and tactical maneuvering. 
Will future development be put on 
hold until higher ST sales figures 
manifest themselves? Says O'Loughlin, 
"We'll probably put them out and see 
how they do, but we have pretty high 
hopes for that machine. We feel it 
could be the next Commodore. It's so 
powerful and inexpensive that the 
average user is going to want it." // 
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102 Abacus Software 8 

123 Alpha Systems 94 
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— ANALOG Publishing 2, 5, 89 

117 At-A-Glance 77 

115 Beckemeyer Development Tools 77 

106 Computability 24, 25 

125 Computer Creations, Inc 60 
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Now: "HabaView II" 
. . .without Haba! 

The news that Regent Software is 
producing another database manage- 
ment system may be met with about as 
much enthusiasm as Elizabeth Taylor's 
getting married. While Regent's Frank 
Cohen is working on his new 
relational Regent Base v2.0, HabaView 
author Richard Skraly is upgrading that 
item — or, shall we say, overhauling it 
— to create a new heirarchical storage/ 
retrieval database system. To be called 
The Informer, Cohen describes it as 
"light-years ahead of the old HabaView. 
Not only does it show you the typical 
HabaView stuff, but it also uses 
graphics on the screen, and it prints 
out to more major printers. 

"HabaView has a file-size limit; this 
doesn't. HabaView isn't multi-table, 
where The Informer is — you can have 
four tables at once in memory; you 
can link (not relationally) points from 
one table to another." 

Specific tabular items can be given 
minimum/maximum values; the math 
extension feature can compute these 
tables as spreadsheet columns. 

Cohen says The Informer will also 
generate sublists: "If you want to 
generate a smaller database from a 
bigger one, you can say, 'Show me all 
the people who live in California,' and 
it'll show you that list. Once you 
create a subUst, you can edit that 
sublist." Sublists can also be generated 
by extracting all data which meet a 



particular condition, or relate to each 
other in a way that can be represented 
mathematically, using a floating-point 
math routine. It is an introduction of 
relational elements into a heirarchical 
database; still, Cohen would contend, 
that doesn't make The Informer a true 
relational database. 

Data is plotted to the screen in a 
spreadsheet fashion, so records may be 
referred to in rows and columns. The 
program may be, however, one of the 
first to utilize data that may be drawn 
in. Graphics from DEGAS or Neo- 
Chrome may be imported into The 
Informer, for use as artistic decoration 
of the "form" the records are plotted 
into, or as raster blocks to be treated 
as records. Straight data may also be 
imported from HabaView, Regent Base, 
or Versasoft's dBMan. 

The Informer will also include a 
custom reports generator, plus the 
capability to generate mail merge files 
for Regent Word II. Projected list price 
is $99.95, though HabaView disks 
should get a $20 credit toward a mail- 
order purchase of The Informer 
through Regent. Demo disks will be 
available for $20, also redeemable 
through Regent for a $20 credit. J/ 

Batteries Updated. 

Every month, we learn a bit more of 
the absorption of the Batteries 
Included brand by Electronic Arts. It 
seems EA has been wondering whether 
they should keep the name under their 



banner, or market BI's products under 
the EA logo. EA initiated a nationwide 
telephone survey of registered BI 
product owners. Apparently, the results 
were that the name should be kept. 

EA's President Trip Hawkins, in a 
national conference over CompuServe, 
conducted by Richard Rea of its Amiga 
Forum, has admitted that several 
products aiuiounced originally for 
release by BI were barely started, or 
"were never even in development." 

Hawkins pledged continued support 
for BI mainliners like PaperClip, but, 
in response to a question from Atari 
Marketing Communications Director 
Neil Harris about whether EA will 
augment support of the Atari 8-bit 
product line, Hawkins answered, "We 
are working with some companies now, 
like DataSoft, that are supporting 8-bit 
Atari. . .but as for EA, I'm afraid I 
can't be very encouraging. We came out 
with a fair number of 8-bit programs 
last year, and the sales were awful." 

On the gaming end, Hawkins 
mentions the fact that Marble Madness 
is still in the development stage, as 
well as a possible port-over of Bill 
Budge's Pinball Construction Set to 
the ST, and a two-player-via-modem 
version of Arcticfox. EA may have 
announced by press time new 
products, to be released under the BI 
banner, at the Chicago Consumer 
Electronics Show. 

Those; are the notes for this month. 
I'll see you on Delphi, jy 
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GRAPHICS 

Sketch Pad 

Graphic Violence! 

Multicolor Screen Generator 

Moving Missiles in BASIC 

Stars 3-D 

Bar Chart Subrg 

Solid States 

Scredit 

Graph E's 

P/M Creator/Animator 



#, 
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To order, send $9.95 per disk 



yig^ (plus $2.50 per order shipping and handling) 
^"^ WO CODs ACCEPTED 

to: 
ANALOG Computing— Disks 

RO. Box 23, Worcester, MA 01603 

or call (617) 892-3488 
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'Ordinary 
online 
services 
left me fiat../' 



"Witlilt&ie 
I discovered 
vast new 
iiorizons." 




L00+ per hour 



$5 per hour 



There's only so far you can go with most 
ordinary online information networks. But with 
GEnie— the General Electric Network for 
Information Exchange— there's virtually no end 
to the exciting new interests you can explore. 
Discover the value of GEnie's vast range of 
services and explore new territory with guides 
from our Special Interest Groups. 

Join the friendly crew with GEnie's 
Atarit RoundTable™ Special Interest 

Group for exciting and informative discussions. 
Benefit from the expertise of experienced 
individuals. Compare notes on hardware, 
software, games or any other topic you 
choose. And, for the simple cost of down- 
loading, collect thousands of valuable public 
domain software programs for your personal 
computer. Over 1000 new programs are added 
to our libraries every month. And remember, 
UPLOADS ARE FREE on GEnie! 

No extra charge for 1200 Baud. 

Make new friends, schedule meetings, 
gather facts and figures, set up travel plans, get 
the news, be entertained and even shop online 
for a fraction of what other information services 
charge, because GEnie's non-prime rate for 300 
or 1200 baud is only $5 an hour. GEnie 
always comes out ahead of the competition in 
savings, in some cases by as much as 60%. 

You get even more for your money. 

In addition to user support groups, you can 
meet new people with GEnie's Live Wire ™ 
CB Simulator. Exchange messages with 
electronic mail service. Find the best vacation 



deals and make your reservations with American 
Airlines travel service. Shop at home with 
American Express Merchandise Shop. Le;irn 
the fan way with a subscription to Grolier's 
electronic encyclopedia. Play classic and 



Backed in the GE Tradition 

GEnie is brought to you by General Electric, 
whose reputation is built on attention to detail 
and customer satisfaction. We're continuing that 
tradition with GEnie. 



Compare 
Save' 


Services 


Pricing 1 


Trawl & 
Shopping 


SIGs/User 
Groups 


CB& 
Mail 


Financial 
Services 


News 


Games 


Registration 
Fee 


Monthly 
Minimum 


Non-prime time rates | 


500baud 


1200 baud 


The Source 


X 


X 


X 


X 


X 


X 


149.95 


SIO.OO 


»8.40 


» 10.80 


CompuServe 


X 


X 


X 


X 


X 


X 


S39.95 


none 


$6.00 


M2.50 


GEnlet 


X 


X 


X 


X 


X 


X 


$18.00 


none 


$5.00 


$$.00 



'Basic rates and services shown in effect 2/87. ySon-l)rime lime applies Mon.-Fri., 6pm-8am local time, alt day Sat., Sun., and nat't boUttays. Subject to 
service ai<ailabilit}'. Additional charges apply for 2t(X) hand and financial sewices. 



multiplayer games. Use GEnie's fiwancia/ 
Services to track stock market quotes, check 
market indicators and maintain an automatically 
updated personal portfolio online. All thisp/H« 

new services added each and every month! 

Map out your own voyage of discovery 
with GEnie as your guide. . .enrich your 
tomorrows by signing on with GEnie today 

Sign up from your keyboard today. 
4 Easy Steps: 

1 . Have your major credit card or 
checking account number ready 

2 . Set your modem for local echo 
(half duplex)-300 or 1200 baud. 

3. Dial 1-800-638-8369. When 
connected, enter HHH 

4 . At the U# = prompt enter 
XJM11877,GEnie then RETURN. 

Need help or more information? No modem 
yet? We can help. In U.S. or Canada call 
1-800-638-9636. 

t Atari is a registered trademark of Atari Corporation 
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'"'GEnie 

Stay online longer, for less. 




INFORMATION 
SERVICES 



GeiMril Electric Informttion Sarvlces Company, USA 

GEnie rates and .ser\'ices subject to change. Uploads are free during non- 
prime hours at 500 or 1 200 baud. Some services offered on Genie may 
include additional charges. 



